consulta

[banrey]

hola muchachos estoy haciendo una consulta a mi bd en myslq desde visula soy muy nobato en visual les muestro lo que tengo y les explico que quiero hacer para que me hagan el favor de ayudarme

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Dim busca As String

Private Sub Command1_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes WHERE numerodehistoria='" & busca & "'", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
List1.AddItem
End If
End Sub

Private Sub Command2_Click()
On Error GoTo Ver
Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=practica; User=root;Password=123456;Option=3"
BD.Open
MsgBox "Conexión establecida!!!", vbExclamation, "Conexión"
Exit Sub
Ver:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub

fiejnse quiero hacer esa consulta pero que la misma se muestre en los distintos campos asignados a nombre, apellido, cedula, etc.. me sale un error en el command1 diciendome q no esta completo, me pueden ayudar por favor