Cuantos registro tengo

[spiderman78]

Que tal miren mi codigo para llamar a mis registros es el siguiente y ahi ya agregue el RecordCount para q me muestre el numero de registros y me muestra un -1, y por darle un ejemplo a ese paciente ya le agregue 3 registro

Código:

Private Sub DatosProcedimiento()
    Dim sql As String, cadena As String
    Dim num As Integer
    cadena = Text1(0).Text
    Call VisualizarPacienteProcedimiento
    sql = "SELECT * FROM pacienteprocedimieto WHERE idpaciente Like '" & cadena & "'"
     Set RECBDDDD = New ADODB.Recordset
     RECBDDDD.Open sql, BD, adOpenKeyset, adLockOptimistic
     If RECBDDDD.BOF = True Or RECBDDDD.EOF = True Then
        MsgBox "PACIENTE SIN PROCEDIMIENTOS"
        Exit Sub
     End If
     num = RECBDDDD.RecordCount
     Text2(6) = num
End Sub

Saludos