problemas con Find

[okan]

Bueno he logrado solucionar el problema. Muchas gracias Avellaneda por la ayuda. Finalmente he tenido que crear un campo nuevo en la tabla y guardar alli los demas registros concatenados y realizar un SELECT sobre es campo para luego meter en un Do While Loop un contador ya que por alguna razon que desconozco no me reconocia el RecordCount. Asi quedo el código SOLUCIONADO.

Código:

Private Sub grabar_Click()
  conc = Trim$(concate.Caption)
  txtsql = "SELECT Alumnos_Carreras.prueba FROM Alumnos_Carreras " _
            & "WHERE prueba = '" & conc & "' "
  Set rs = con.Execute(txtsql)
   conta = 0
Do While Not rs.EOF()
    conta = conta + 1
    rs.MoveNext
    Loop
    If conta > 0 Then
         MsgBox "Ya está Inscripto"
    Else
    If rs.EOF = True Then
         txtsql = "INSERT INTO Alumnos_Carreras (DNI,Cod_Carrera,Fecha_Inscripcion,prueba) " _
               & " VALUES ('" & doc.Text & "', '" & cod.Caption & "', #" & Date & "#, '" & concate.Caption & "') "
        con.Execute (txtsql)
        txtsql = "UPDATE Alumnos_Carreras SET"
    End If
    End If
Adodc2.Refresh
End Sub

Muchas Gracias por la ayuda.

Okan