No ingresar daros repetidos acces desde VB

[lokoman]

El [ Dim buscar As String ] está de mas, ya que no lo uso... !

Verifica y nos cuentas:

Código vb:

Private Sub Ingreso_a_Lista_Click()
    Dim strVALOR_ESPECIALIDAD As String
    Dim strVALOR_DOCUMENTO As String
    Dim rsConsulta As ADODB.Recordset
    Set rsConsulta = New ADODB.recodset
 
    strVALOR_ESPECIALIDAD = COMBO1.Text
    strVALOR_DOCUMENTO = TEXT1.Text
    
    If rst.EOF = False Then
        rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' ", cnn, adOpenDynamic, adLockBatchOptimistic
       
        If rsConsulta.EOF = False Then
            MsgBox "No Se puede Ingresar Dos veces en la misma Lista de Espera a un mismo Usuario"
            rsConsulta.Close
            Set rsConsulta = Nothing
            Exit Sub
        Else
            cnn.Execute "INSERT INTO Listadeespera (FechaIngreso,Documento,Especialidad,Medico,Nombre 1,Nombre2,Apellido1,Apellido2,Carne,Vencimiento,Te lefonos,Observaciones) Values('" & _
                        LabelFechaIngresoLE.CAPTION & "', '" & TEXT1.TEXT & "', '" & COMBO1.TEXT & "', '" & Combo2.TEXT & "', '" & Text2.TEXT & "', '" & Text3.TEXT & "', '" & Text4.TEXT & "', '" & Text5.TEXT & "', '" & Text6.TEXT & "', '" & Text7.TEXT & "', '" & Text8.TEXT & " ', '" & Text9.TEXT & " ')"
            MsgBox "El Usuario ha sido Agregado a la base de datos de manera exitosa!"
        End If
    End If
End Sub