Error en consulta

[gnzsoloyo]

Por un lado: Antes de crear el MysqlCommand, la conexión debe estar abierta.
Lo otro es simple: Es un Try/Catch:

Código vb.net:

Try
   Dim cad As New MySqlConnection("Server=localhost;Database=control_pacientes; Uid=root; Pwd=;")
   cad.Open()
   Dim sql As String = "SELECT * FROM Pacientes WHERE id1 = '" & comboid.Text & "'"
   Dim cmd As New MySqlCommand(sql, cad)
   Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection) 
   While dr.Read
      Dim value As Object = dr.Item("nombre")
      If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
      value = dr.Item("apellidos")
      If value IsNot DBNull.Value Then TextBox2.Text = CStr(value)
   End While
   dr.Close()
Catch ex as MyqlException
   ' Aqui va lo que debes hace en caso de error de MySQL
   ' Mi sugerencia es volcarlo en un log en un archivo de texto.
Catch ex as Exception
   ' Aqui va lo que debes hace en caso de error no MySQL
   ' Mi sugerencia es volcarlo en un log en un archivo de texto.
End Try