Que tal ya hice la prueba de ambas formas (utilizando de entrada ambas tablas) y ya modifique lo q me haz comentado y el codigo me queda de esta manera
Cita: Private Sub DatosDiagnostico()
Call VisualizarPacienteDiagnosticos
Call VisualizarPacientes
RecBD "SELECT * FROM pacientes WHERE id = " & RECBDD!Idpaciente
text2(0) = RECBDD!Id
text1(2) = RECBDD!Idpaciente
Combo2 = RECBDD!diagnostico
text1(3) = RECBDD!fecha
text1(4) = RECBDD!hora
text1(5) = RECBDD!descripcion
End Sub
y me sigue marcando error pero ahora dice
"Compile error:"
Expected procedure, not variable
Saludos