Que tal si efectivamente mi busqueda esta bien ya q puedo ver todos mis registros sin problema la cuestion es q deseo ver cuando registro tengo y con la ayuda de las respuesta q me han dado llegue a este codigo
Código:
Private Sub DatosDiagnostico()
Dim sql As String, cadena As String
Dim num 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
BD.CursorLocation = adUseClient
num = RECBDD.RecordCount
Text2(6) = num
If RECBDD.BOF = True Or RECBDD.EOF = True Then
MsgBox "PACIENTE SIN DIAGNOSTICOS"
Exit Sub
End If
End Sub
El cual sigue mostrandome un -1 en lugar de los registros q tengo.
Saludos y Gracias por la ayuda
