Visual Basic - Problema Código Visual Basic

Estoy tratando de realizar un Login, con una base de datos de mi equipo, la cual tiene 2 tablas una llamada: Alumnos y otra llamada Usuarios.
La tabla Usuarios contiene 2 campos llamados usuario y contrasena, las cuales tiene sus campos correspondientes. Con los datos de estos campos (usuario: erik / contrasena: erik), debería aparecer otro formulario que se llama Alumnos.
El formulario con el login (llamado Entrada) contiene: dos etiquetas, dos cajas de texto y dos comandos.
El problema residen en el comando 1 con el caption: Entrar al programa.
Ya que marca error en el código de dicho comando:




La siguiente parte del código es donde marca el error en letras rojas en Visual Basic:
If Registro.Data1.Recordset.Fields("usuario").Value = usuario And
Registro.Data1.Recordset.Fields("contrasena").Value = contrasena Then
Me marca:
Compile error:
Expected: expression

Agradecería mucho su ayuda, ya que no tengo idea de cómo podría solucionarse el error.
Mi correo es [email protected]

Yo trabajo ADO, que es mas comodo.

Prueba esto
dim respuesta as ADODB.Recordset

repuesta = conexionBD.execute(SELECT * FROM usuarios WHERE usuario=%" & Text1.Text & "% AND contrasena = %" & Text2.Text & "& "

(sustituye % por comilla sencilla ya que si las pongo no se iban a ver)

if respuest.EOF then
' TRATAMIENTO DE NO LOCALIZADO. VOLVER A PEDIR CLAVES"
else
' EL USUARIO EXISTE CONTINUAR EL PROCESO
endif

Con esto te evitas el bucle siempre.

ME PARECE QUE ANTES DE BUSCAR DEBERIAS PONER

Registro.Data1.Recordset.MoveFirst (ir al primero)

y luego comenzar desde el principio, porque Refresh, recarga el recordset PERO NO TE SITUA EN EL PRINCIPIO.

Perdona hay un error.

LO CORRECTO ES

repuesta = conexionBD.execute(SELECT * FROM usuarios WHERE usuario=%" & Text1.Text & "% AND contrasena = %" & Text2.Text & "% "

ya sabes que los campos alfanumericos van entre comillas simples/sencillas

La siguiente parte del código es donde marca el error en letras rojas en Visual Basic:
If Registro.Data1.Recordset.Fields("usuario").Value = usuario And_ (aqui falta el guion bajo _ para separacion de linea)
Registro.Data1.Recordset.Fields("contrasena").Value = contrasena Then
Me marca:
Compile error:
Expected: expression

me sale el siguiente error ayudame por fa Registro.Data1.Refresh error "424"