Primero gracias Avellaneda por responderme. Si al ver tu codigo me di cuenta que era mas sencillo hacer el selec en lugar del find, ahora el probleba que me tira es con el activeConnection, no me reconoce el origen de los datos y el controlador. Uso DSN como conexion, el codigo me quedo asi:
Código:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "DSN = escuela" ' aca tira el error
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "SELECT * FROM LaTabla WHERE DNI = '" & doc.Text & "' AND Cod_Carrera = '" & cod.Caption & "' And Fecha_inscipcion = " & Year(Date)
End With
If rs.RecordCount > 0 Then
MsgBox "Ya está inscrito"
Else
txtsql = "INSERT INTO Alumnos_Carreras (DNI,Cod_Carrera,Fecha_Inscripcion) " _
& " VALUES ('" & doc.Text & "', '" & cod.Caption & "', #" & Date & "#) "
con.Execute (txtsql)
End If
Le cambie el nombre al campo Año_Inscripcion por Fecha_Inscripcion.