Problemas con una consulta

[spiderman78]

Que tal de nuevo aqui solicitando un poco de ayuda miren tengo q realizar una consulta pero el problema q tengo es q quiero q me jale la informacion en base a el id de otra, vean este codigo es el q llevo pero siente q me falta hacer la comparativa entre los ids

este es el codigo q estoy manejando para ese proceso

Código:

Private Sub cmddiagnostico_Click(Index As Integer)
Select Case Index
       Case 0
            RecBD.MoveFirst
       Case 1
            RecBD.MovePrevious
            If RecBD.BOF Then RecBD.MoveFirst
       Case 2
            RecBD.MoveNext
            If RecBD.EOF Then RecBD.MoveLast
       Case 3
            RecBD.MoveLast
End Select
Call DatosDiagnostico
End Sub

Private Sub DatosDiagnostico()
    Call VisualizarPacienteDiagnosticos
    Call VisualizarPacientes
    RecBD "SELECT * FROM diagnosticos WHERE id = " & idpaciente--------- Aqui me marca variable no definida
    text2(0) = RecBD!Id
    text1(2) = RecBD!idpaciente
    Combo2 = RecBD!diagnostico
    text1(3) = RecBD!fecha
    text1(4) = RecBD!hora
    text1(5) = RecBD!descripcion
End Sub

Bueno rapidamente les comento que en una tabla tengo un id automatico por ejemplo el "1" y cuando lo tengo seleccionado en mi formulario quisiera poder obtener toda la informacion que contenga mi otra tabla que seria idpaciente que contenga el numero "1" para hacer poder moverme entre ellos y visualizarlos

Saludos y gracias por la ayuda