Cita:
Iniciado por 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,
datareader = objaux.buscar("select * from personal where
en esa linea me marca que no existe objaux.buscar, probe.. agregandolo como variable string y luego me marca lo de select ...... me dice que no se puede convertir a string, si lo quito me dice q select .. no es miembro de datareader y me marca todo lo de abajo tambien.. que estoy haciendo mal ??