consulta sobre un combobox

[jaullo]

Prueba con algo como esto
Imports System.Data.SqlClient
'cargar los dato
Function buscaridentificacion()
Try
Dim datareader As SqlClient.SqlDataReader
datareader = objaux.buscar("select * from personal where identificacion='" & tucombo.Text & "' ")
If datareader.HasRows Then

While datareader.Read
'txtlastcodc.Text = " " & datareader.Item("dato1")
txtnombre.Text = "" & datareader.Item("dato2")
txtapellido.Text = "" & datareader.Item("dato3")
End While

datareader.Close()
MsgBox("El cliente que esta tratando de ingresar ya existe", MsgBoxStyle.Critical)
btnSave.Enabled = False
Else
datareader.Close()
btnSave.Enabled = True

End If

datareader.Close()

Catch ex As Exception
MessageBox.Show("Error en la Consulta" & Chr(13) & "Consulte al administrador" & Chr(13) & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Function

Esto lo que hace es mediante un datareader traer los datos de la bd dependiendo del filtro que le indiques,puedes traer tantos campos necesites solo debes seguir agregandolos dentro del while.

Para que funcione en la propiedad selectedindex de tu combo
llamas la funcion anterior.

Saludos,