Access - Ayuda porfa, me urge.

Saludos a todos los señores de este respetable foro.

tengo un problemita; hice un formulario independiente, (que no està relacionado a ninguna tabla), dicho formulario sòlo tiene un TEXTBOX; tengo que validar que el dato que me ingresan no exista en la tabla, para lo cual quiero hacer un select y si es fin de archivo significa que no està; necesito hacer select, insert, update y delete de las tablas, pero el còdigo que tengo no me funciona, me da un error 13 en tiempo de ejecución, justo en la sentencia CURRENTDB.OPENRESULSET dice que NO COINCIDEN LOS TIPOS, les mando mi fragmento de còdigo para la conexión de la bd, talvez me puedan decir cuàl es el error o darme alguna rutina para hacerlo de otro modo.
Saludos y gracias.

Dim rs1 As Recordset
Dim ssql As String
ssql = ""
ssql = "select serie from t_serie "
ssql = ssql & " where serie = " & Trim(Me.Texto0)
Set rs1 = CurrentDb.OpenRecordset(ssql)

If Not rs1.EOF Then
MsgBox "Serie Duplicada", vbInformation, "ERROR"
Texto0.SetFocus
Exit Sub
else
'aqui necesito insertar, por si tienen el còdigo...... GRACIAS.
End If

Hola Carlos:
Comprueba a ver si ahora te funciona con estos cambios:

Dim rs1 As DAO.Recordset
Dim ssql As String
ssql = ""
ssql = "select serie from t_serie"
ssql = ssql & " where serie =' " & Trim(Me.Texto0) & "'"
Set rs1 = CurrentDb.OpenRecordset(ssql, dbOpenDynaset)
If Not rs1.EOF Then
MsgBox "Serie Duplicada", vbInformation, "ERROR"
Texto0.SetFocus
Exit Sub
Else
rst1.AddNew
rst1!serie = Me.Texto0
rst1.Update
End If
rst1.Close: Set rst1 = Nothing

Un saludo
Enrique