Visual Basic - CORREGIR CODIGO

HOLA, COMO ESTAN,LA VERDAD SOY NOVATO EN LA PROGRAMACION DE VB6.0
ESTOY DESARROLLANDO UNA APLICACION PARA UN COLEGIO PERO QUIERO COLOCARLE UN FORM DONDE ME VALIDE USARIO Y CLAVE, LAS CUALES SE ENCUENTRAR DENTRO DE UNA TABLA DEL MDB.

ENCONTRE ESTE CODIGO PERO PARECE QUE LE FALTA ALGO EN PUES NOSE CUAL ES LA VARIABLE DEL RECORDSET NI COMO CREAR EL MISMO ALGUIEN DE CORAZON ME PUEDE AYUDAR CON ESTE CASO

RELACIONO EL CODIGO QUE TENGO;

Option Explicit

' Flag
Dim OK As Boolean


' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "D:Bases de DatosSchoolsoftMdbSchool.mdb" & ";"

' Variable para el recordset
Dim Rst_Login As Recordset

' crea el recordset
Set Rst_Login = New Recordset

Dim SQL As String

' consulta SQL ( Campos: Nombre y Password) _
Textbox ( txt_Usuario y txt_Password) _
Tabla: Usuarios

SQL = "SELECT Nombre, Password " & _
"FROM Usuario " & _
"WHERE Nombre = '" & Txt_Usuario.Text & "'" _
& "AND Password = '" & Txt_Password.Text & "'"

With Rst_Login
' Abre el recordset
.Open SQL, C_CADENA

' Si el recordset está vacío es por que es incorrecto
If .EOF Then
MsgBox " El usuario o Password es incorrecto ", _
vbCritical, " Login incorrecto "
' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing
Exit Sub
End If
End With

' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing

'Cambia el Flag para que no cierre el programa con End
OK = True

' Descarga el formulario y prosigue en el SubMain
Unload Me

End Sub

Private Sub cmdSalir_Click()
OK = False
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Frmlogin = Nothing
If OK = False Then
End
End If
End Sub

AGRADEZCO LA COLABORACION PRESTADA

el path de la BD no puede ser esto" D:Bases de DatosSchoolsoftMdbSchool.mdb"
sera "D:School.mdb" si es que la BD se llama "School.mdb" y se encuentra en edirectorio D:, cual es el error que te da?..