Error al abrir con ado un archivo *.mdb

Hola!, amigo espero me eches una ayudita por aquí:
Aparece el error "No es un nombre de cuenta con contraseña válido", ¿qué puedo hacer? Ahí te envío el código y de paso me evaluar si la consultica parametrizada en access se codifica de esa forma.
Dim cn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim consulta As New ADODB.Command
Dim CADENA1 As String
cadena2 = UCase("xon2m4gq")
CADENA1 = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=c:\colegio\cscj\2000\Col1999.MDB;" & _
"Jet OLEDB:System database=c:\windows.000\system\System.MDW"
cn.Open ConnectionString:=CADENA1, UserID:="Admin", Password:="XON2M4GQ"
MsgBox ("base de datos abierta")
Exit Sub
'ABRIR RECORDSET
Set consulta.ActiveConnection = cn
consulta.CommandText = "mgrado"
consulta.CommandType = adCmdStoredProc
consulta.CommandText = "mjornada"
consulta.CommandType = adCmdStoredProc
consulta.CommandText = "mmodalidad"
consulta.CommandType = adCmdStoredProc
Set RS = consulta.Execute(Array("01", "01", "01"))