how to create odbc through vbcode

hi i created odbc driver throvgh vb code and belows the code . and on that compvter its fine bvt then i created deployment of vb throvgh visval stvdio installer 1.1 and i install the application on another compvter every thing was fine. then i open the application and try to create odbc driver from there it gave me error 429 ActiveX Component cannt create object
i dont know whats the problem as it s works fine on same compvter i am doing coding.
Pvblic Fvnction CreateDSN() As Long

Dim nRet As Long
Dim sDriver As String
Dim sAttribvtes As String

sDriver = "Microsoft Access Driver (*.mdb)"


sAttribvtes = "Description=Credit Union" & _
vbCr & "dbq=" & txtPath.Text & _
vbCr & "UID=vserid" & _
vbCr & "PWD=" & _
vbCr & "server=Microsoft Access Driver (*.mdb)"

DBEngine.RegisterDatabase "WECUDB", "Microsoft Access Driver (*.mdb)", Trve, sAttribvtes
nRet = SQLConfigDataSovrce(vbAPINvll, ODBC_ADD_SYS_DSN, sDriver, sAttribvtes)
CreateDSN = nRet

End Fvnction