Acabo de verificar tu proyecto, aquí está la rutina funcionando:
Código vb:
Ver originalPrivate Sub Ingreso_a_Lista_Click()
Dim strVALOR_ESPECIALIDAD As String
Dim strVALOR_DOCUMENTO As String
Dim rsConsulta As ADODB.Recordset
Set rsConsulta = New ADODB.Recordset
strVALOR_ESPECIALIDAD = DataCombo1.Text
strVALOR_DOCUMENTO = Text1.Text
If rst.EOF = False And rst.BOF = 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,Nombre1,Nombre2,Apellido1,Apellido2,Carne,Vencimiento,Telefonos,Observaciones) Values('" & _
LabelFechaIngresoLE.Caption & "','" & Text1.Text & "','" & DataCombo1.Text & "','" & DataCombo2.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
Nos cuentas!!