Como validar campo repetido ASP - Access

[Evac12]

Hola a todos,

Quisiera validar en una forma enviada desde Flash, si el id de una persona esta ya inscrito en la base de datos y que envie un mensaje de error.
Tengo el siguiente script pero no funciona,
Alguna luz o ayuda o sugerencia?
Muchas gracias por adelantado

Código:

<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/clubquest.mdb")
sqltext = "SELECT * FROM Club"
rst.Open sqltext,cnn,3,3

'Recogemos los datos 

dim nombres, ids, emails, tels, fechas, direccions, ciudads
nombres = Request.Form("nomclub")
emails = Request.Form("mailclub")
tels = Request.Form("telclub")
fechas = Request.Form("naciclub")
direccions = Request.Form("dirclub")
ciudads = Request.Form("ciuclub")
ids = Request.Form("cedclub")

'Validamos campos repetidos

Private Sub Text1_Validate(Cancel As Boolean)
   Dim ceds As String
   Dim Campo As String
   ceds = ids
   OpenDB3 StringCnn, "Club", "*", "ORDER BY Identificacion"
      
   Do Until RsVerificar.EOF
     Campo = UCase(RsVerificar.Fields("Identificacion").Value)
     If ceds = Campo Then
         Cancel = True
         MsgBox "Su cedula ya se encuentra en el sistema."
         Exit Do
      End If
     RsVerificar.MoveNext
   Loop
   RsVerificar.Close
   Set RsVerificar = Nothing
End Sub

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("Nombre") = nombres
rst("Mail") = emails
rst("Telefono") = tels
rst("Direccion") = direccions
rst("Ciudad") = ciudads
rst("Fecha") = fechas
rst("Identificacion") = ids
rst.update

'Terminamos e imprimimos un mensaje
Response.write "su ingreso a finalizado"
%>

[Evac12]

Bueno ya encontre una serie de inconsistencias y ahora el script esta asi. Pero aun no funciona !!

Código:

<%
Response.Buffer = true
dim cnn,rst

'Conection

set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/clubquest.mdb")
sqltext = "SELECT * FROM Club"
rst.Open sqltext,cnn,3,3

'Pick data

dim nombres, ids, emails, tels, fechas, direccions, ciudads
nombres = Request.Form("nomclub")
emails = Request.Form("mailclub")
tels = Request.Form("telclub")
fechas = Request.Form("naciclub")
direccions = Request.Form("dirclub")
ciudads = Request.Form("ciuclub")
ids = Request.Form("cedclub")

'Query with Execute

Dim strSQL
strSQL = "SELECT Identificacion FROM Club WHERE Identificacion = '" & ids & "'"
Set rst = cnn.Execute(strSQL)

If Not rst.EOF Then
Response.Write("Your ID is already in the system")
  
Else
'Ad a new entry

rst.AddNew
rst("Nombre") = nombres
rst("Mail") = emails
rst("Telefono") = tels
rst("Direccion") = direccions
rst("Ciudad") = ciudads
rst("Fecha") = fechas
rst("Identificacion") = ids
rst.update
cnn.execute(strSQL)
End If
%>

Alguna luz ? gracias por adelantado.

[m4xp0wer]

El campo de Identificación es numérico o de caracteres?. Si es numérico el error podría estar en la consulta:
"SELECT Identificacion FROM Club WHERE Identificacion = '" & ids & "'"
que creo que no funciona con comillas simples. La consulta correcta sería
"SELECT Identificacion FROM Club WHERE Identificacion = " & ids & ""

Si el campo es de texto... puede que sea un problema con las mayúsculas y minúsculas.
Si te sigue sin funcionar, por favor detalla un poco más el error que te da y a ver si te podemos ayudar

[Evac12]

Hice la prueba pero sigue sin funcionar.
No muestra ningun error, sencillamente ya no ingresa los nuevos datos en la base de datos, y no valida si hay una id repetida.
El campo de Identificacion es numerico solamente.