Metodo SEEK

Saludos:

Estoy migrando una pequeña aplicación de Access a SQL Server, la exportación
de la base de datos fue un exito y ahora me encuentro modificando el codigo
para accesar a la base de datos en sql server. Quiero tratar de mantener la
mayor cantidad de codigo posible y solo cambiar aquellas lineas que son
necesarias, como las de conección, etc. Hay partes del código del sistema en
donde, con access, utilizaban el metodo seek para buscar un registro
especifico, pero al mantener el mismo tipo de busqueda me lanza un error de
Metodo desconocido en el evento NoMatch. Utiliza supports para ver si
soportoba tanto el metodo adIndex como adSeek y en ambos me arrojo True
entonces no se que puede estar sucediendo.

Aca les envio el codigo:

Set Rs = New ADODB.Recordset
Rs.Open "SELECT * from ControlDeEntrada", MyDb, adOpenDynamic,
adLockBatchOptimistic
Rs.Index = "Usuario"
Rs.Seek "=", TxtUserName
'
If Not Rs.NoMatch Then
If txtPassword = Rs("Password") Then
User = Rs("UserName")
Sw = True
Else
..

¿Donde puede estar el error?
¿Que metodo pueden recomandarme a parte del Seek?

Gracias de antemano

Ricardo Carcassón
Depto. Informática
Inspectorate Griffith S.A
Santiago - Chile