I'm trying to open a database using this code:

[Highlight=VB]
Dim cnxn As New ADODB.Connection
Dim z As String

cnxn.Provider = "Microsoft.Jet.OLEDB.4.0"
z = CurrentDb.Name
cnxn.Open z
[\vbcode]

This works fine on my computer but when I try it on another computer I get this error message:

"ActiveX component can't create object"

Does anybody now how to fix this?