consulta

[banrey]

ya lo resolvi muchas gracias por tu ayuda

ayudame una ves mas con algo por favor
quiero mostrar todos los datos que hay en una tabla estoy haciendolo asi pero me da un erro seguro tu sabes como hacerlo bien


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

quiero mostrar todos los registros de la bd de esa tabla y mostrarlos en un text