consulta

[vbx3m]

Private Sub Command6_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes "
If RecSQL.EOF Then
MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
RecSQL.MoveFirst
Text7 = (RecSQL.Fields(1))

End If
End Sub

Asi llenas los text con los campos de la tabla:

Código:

Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT * FROM pacientes"
If RecSQL.EOF Then
   MsgBox "No coincide ningún registro, modifique lo ingresado para la busqueda", vbExclamation
Else
   RecSQL.MoveFirst
   Text1.Text= RecSQL!campo1
   Text2.Text= RecSQL!campo2
   Text3.Text= RecSQL!campo3
   Text4.Text= RecSQL!campo4
   ....
   .....   
 End If
End Sub

No te daba error al abrir el Recordset? ya que te falto esto:

Código:

RecSQL.Open "SELECT * FROM pacientes", BD, adOpenStatic, adLockOptimistic, adCmdText