Problemas con una consulta

[spiderman78]

Que tal mira ya modifique el codigo para que me quede de esta manera.

Código:

Private Sub DatosDiagnostico()
    Call VisualizarPacienteDiagnosticos
    Call VisualizarPacientes
    RECBDD.Open "SELECT * FROM diagnostico WHERE idPaciente = " & RecBD!Id, BD, adOpenStatic, adLockOptimistic
    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

Me marca

Error 3705
La operacion no esta permitida si el objeto esta abierto


Saludos