Que tal Txoco pues mira en esas dos opciones lo unico q hago es llamar a mi tabla y a mis campos de esta manera no se si haya problema.
Este es el codigo de ambas
Cita: Public Sub VisualizarPacientes()
Set recbd = New ADODB.Recordset
recbd.Open "select * from pacientes", BD, adOpenStatic, adLockOptimistic
End Sub
Cita: Public Sub VisualizarPacienteDiagnosticos()
Set RECBDD = New ADODB.Recordset
RECBDD.Open "select * from pacientediagnostico", BD, adOpenStatic, adLockOptimistic
End Sub