Run-time error '429'
ActiveX component can't create object

Here is my function:

I declared my database like this:
public dbJobbag as database

Public Sub fctopenFichierJobBag()
Dim paTH, cheminJobBag As String
Dim reponse
On Error GoTo ouvrirCMD

paTH = "c:\gestion\pathJB.txt"

Open paTH For Input As #1   ' Open file.
Input #1, cheminJobBag   ' Read line into variable.
Close #1

If cheminJobBag <> "" Then
    Set dbJobbag = OpenDatabase(cheminJobBag, , True)

Else: GoTo ouvrirCMD

End If

Exit Sub

ouvrirCMD:
    Close #1

    MsgBox "You must get the JobBag"

    FrmMnu_Principal.CommonDialog1.InitDir = "J:\data\"
    FrmMnu_Principal.CommonDialog1.ShowOpen

    If FrmMnu_Principal.CommonDialog1.FileName = Null Or
FrmMnu_Principal.CommonDialog1.FileName = "" Then
        reponse = MsgBox("Are you sure you want to quit?", vbYesNo, "Error")

        If reponse = vbYes Then
            End
        Else
            Call fctopenFichierJobBag
        End If

    Else
        cheminJobBag = FrmMnu_Principal.CommonDialog1.FileName

****the error is here*******
        Set dbJobbag = OpenDatabase(cheminJobBag, , True)

****or here*******
        Open paTH For Output As #1   ' Open file.
        Write #1, cheminJobBag
        Close #1

    End If

End Sub

Waht should I do ? is this an OCX missing, or what?
By the way, the program only works at a machine that have VB6 installed on.

Thanks for your help,
       Sebastien Anselmo
       QUEBECOR inc.

If you do have a reference set double check to make sure that all database related dll's have been installed along with your app.

BTW.... your lines that read...