Hola!!
Intenta asi:
Código vb:
Ver originalPrivate Sub Ingreso_a_Lista_Click()
Dim buscar As String
Dim rsConsulta as Adodb.Recordset
Set rsConsulta=new adodb.recodset
If rst.BOF = False And rst.EOF = False Then
rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' " , CNN, DYNAMIC, LOCKTYPE ' ---> Completa la sentencia
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 & "', '" & Text1 & "', '" & Combo1 & "', '" & Combo2 & "', '" & Text2 & "', '" & Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "', '" & Text7 & "', '" & Text8 & " ', '" & Text9 & " ')"
MsgBox "El Usuario ha sido Agregado a la base de datos de manera exitosa!"
End If
End Sub