Espero estar en el sitio adecuado. Al perder el foco de un combo en una posicion anterior, pretendo mostrar los datos de la base que se obtienen en la consulta selccaa donde solo hay 1 registro y mostrarlo en la propiedad txt de los textbox las instrucciones que uso son las siguientes.

Private Sub cmbnombre
    _LostFocus(ByVal sender As Object, ByVal e As
     System.EventArgs) Handles cmbnombre.LostFocus
        Dim selccaa As
             String = "select cc_aa,
             habitantes from corporaciones where nombre ='" & Me.cmbnombre.Text & "'"
        Dim drs As OleDb.OleDbDataReader
        Using cmd As New OleDb.OleDbCommand(selccaa, conexiones)
            cmd.CommandType = CommandType.Text
            drs = cmd.ExecuteReader
            If drs.HasRows Then
                Me.txtccaa.Text = drs.GetString(0).ToString
                Me.txtccaa.Enabled = False
                Me.txthabitant.Text = drs.GetString(1).ToString
                Me.txthabitant.Enabled = False
            Else
                MsgBox("no hay datos")
            End If
        End Using
        Me.txtccaa.Text = selccaa
        Me.txtccaa.Enabled = False
    End Sub

muchas gracias

Mira yo siempre prefiero usar DataSet o DataTable en vez del DataReader, bueno a ver si te entendí te mostraré como hacerlo pero con un DataTable:

Dim da as OleDbDataAdapter = New OleDbDataAdapter(Seleccion, Conexion)
Dim dt as DataTable = New DataTable
Dim fila as DataRow

da.Fill(dt)

' Supongo que tu criterio de búsqueda coincidirá con un campo de tu Tabla de la Base de Datos (por lo que entendí) que sólo arroja un resultado posible y pensándo que lo hallas asignado en una variable llamada TuBusqueda

fila = dt.Select("Campo = '" & TuVariableDeBusqueda & "%'")

' Si hay datos, los muestro en los TextBox
If fila.Length > 0 Then
TexBox1.Text = fila("NombreCampo1)
TexBox2.Text = fila("NombreCampo2)
End If


Espero te sirva, recuerda que si esto te ha servido marca como tema solucionado!!!.

muchas gracias parece mas acertado que como yo lo estaba intentando hacer