Puedo pasar código vb6 a vba para access

Yo realizo la validación de contraseña con una tabla que se encuentra en sql server a través de ADO con vb6 de esta manera:

Private Sub Command1_Click()
Dim base As New ADODB.Connection
Dim rsValidacion As New Recordset
'abro mi conexión
base.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sqlserver2005;Initial Catalog=Medical;Data Source=EQUIPO01"
If Text1.Text <> "" And Text2.Text <> "" Then
'crea el recordset
sql = "select usuario, contraseña from validación where usuario ='" & Text1.Text & "' and contraseña ='" & Text2.Text & "'"
rsValidacion.Open sql, base, adOpenKeyset, adLockOptimistic, adCmdText
'si el registro está vacío
If rsValidacion.EOF And rsValidacion.BOF Then
MsgBox "Usuario no existe en el sistema", vbCritical, "Error de validación"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
MsgBox "Bienvenido al sistema MEDICAL", vbInformation, "Ingreso a Medical"
Form2.Show
Unload Me
MsgBox "Base cerrada"
End If
Else
MsgBox "Complete todos los campos del formulario", vbCritical, "Falta sumnistrar datos"
End If
base.Close
End Sub

Tengo posibilidad de realizar este código pero con una base de access 2010 cuyo form1 sea un formulario de validación de access y form2 otro formulario que este también en access y programarlo desde un modulo vba?