Visual Basic - CR9 y VB 6

Hola amigos del foro: Tengo el siguiente problema, tengo una aplicacion que llama a un reporte de cr9 que este reporte usa 2 BD el cual funciona perfecto en el entorno del editor del cr9, pero cuando lo llamo desde la aplicacion de VB6 me muestra el reporte pero si los datos actualizados y si le digo actualizar (con un boton que tiene) me dice que no estoy logueado o que el password es incorrecto. Este es parte del codigo que uso
LO QUE CREO QUE ME FALTA ES DECIRLE POR EL CODIGO EN VB6 QUE BD USO Y QUE CLAVE TIENE, LO CUAL NO SE COMO HACERLO.
Muchas gracias por la ayuda!
Option Explicit

Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report

Private mflgContinuar As Boolean

Public Sub ImprimirReporte()
On Error GoTo ErrHandler

Screen.MousePointer = vbHourglass

mflgContinuar = True
Set crReport = crApp.OpenReport(vPath & Me.Tag, 1)

crViewer.ReportSource = crReport
crViewer.DisplayGroupTree = False
crViewer.EnableRefreshButton = True
crViewer.ViewReport
Screen.MousePointer = vbDefault

Exit Sub

ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If

mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub

Las BD las abro de la siguiente forma
Public dbs As New ADODB.Connection, rst As New ADODB.Recordset
dbs.ConnectionString = "DRIVER=Driver do Microsoft Access (*.mdb);" & _
"DefaultDir=" & vPath & "; " & "DBQ=" & vPath & "Ctas.mdb;UID=admin;pwd=" & _
vPassMDB
dbs.Open

rst.CursorLocation = adUseClient
rst.Open "Select * from Prov", dbs, adOpenStatic, adLockOptimistic