Visual Basic - Crear un Inicio de Sesion

Hola, queria saber como hacer para buscar un dato en una tabla de SQL.
Mi idea es tener una tabla (tpasswords)con las siguientes columnas(Nombre, Apellido, Usuario,Password) y que el usuario ingrese en un TEXTBOX el Usuario y en Otro TEXTBOX el Password.
Entonces ahi el programa tendria que buscar en dicha tabla el nombre de usuario y verificar si la clave es correcta.
Como puedo hacer esto con ADO?
Gracias.

Dim EspacioDeTrabajo As Workspace
Dim BaseDatos As Database
Dim Consulta as RecordSet
Dim Contador as Integer

Set EspacioDeTrabajo = DBEngine.Workspaces(0)
Set BaseDatos = EspacioDeTrabajo.OpenDatabase("C:\Datos.mdb")

Set Consulta = BaseDatos.OpenRecordset("SELECT Usuario,Password FROM TPasswords;", dbOpenSnapShot)

if Consulta.RecordCount>0 then
Consulta.MoveLast
Consulta.MoveFirst

For Contador=1 To Consulta.RecordCount
if Consulta.Usuario=TextBoxUsuario And Consulta.Password=TextBoxPassword then
'Permite pasar
Else
'Mensaje de password incorrecto
End If
Consulta.MoveNext
Next Contador
End If
Consulta.Close