Ok si puse un codigo donde viene despues de abrirlo ok me equivoque ya lo puse antes de abrirlo y se brinca todo el proceso de mis registros y me dice q no tengo ningun diagnostico el paciente.....
Cita: Call VisualizarPacienteDiagnosticos
sql = "SELECT * FROM pacientediagnostico WHERE idpaciente Like '" & cadena & "'"
Set RECBDD = New ADODB.Recordset
RECBDD.CursorLocation = adUseClient
RECBDD.Open sql, BD, adOpenKeyset, adLockOptimistic
Cita: Call VisualizarPacienteDiagnosticos
sql = "SELECT * FROM pacientediagnostico WHERE idpaciente Like '" & cadena & "'"
RECBDD.CursorLocation = adUseClient
Set RECBDD = New ADODB.Recordset
RECBDD.Open sql, BD, adOpenKeyset, adLockOptimistic
Esto fue lo q yo entendi ponerlo antes del abrir el recorset, si estoy mal, le agradeceria q me dijeran donde esta mi error si no es mucha molestia, de antemano gracias por su tiempo y ayuda
Saludos y Gracias