Mostrar en Textbox el Numero de Registros

[spiderman78]

Que tal gracias por las respuestas, pero estuve revisando y si usaba las opciones que me mencionaban en los dos temas me ocasionaba errores en otras partes de mi programa q ya tenia funcionando asi q al final la manera q pude hacerlo fue asi:

Código:

Private Sub DatosDiagnostico()
    Dim RECBDD As ADODB.Recordset
    Dim sql As String, cadena As String
    Dim X As Integer
        cadena = Text1(0).Text
    Call VisualizarPacienteDiagnosticos
        sql = "SELECT * FROM pacientediagnostico WHERE idpaciente Like '" & cadena & "'"
    Set RECBDD = New ADODB.Recordset
        RECBDD.Open sql, BD, adOpenKeyset, adLockOptimistic
    If RECBDD.BOF = True Or RECBDD.EOF = True Then
        MsgBox "Paciente sin Diagnosticos"
    Exit Sub
    End If
      X = 0
       RECBDD.MoveFirst
          Do While Not RECBDD.EOF = True
          X = X + 1
       RECBDD.MoveNext
    Loop
        Text4.Text = X
End Sub

Gracias por la ayuda

Saludos