Connection avec la base de donnee

Salut a tous
j'ai realise un programme avec VB6 j'ai realise l'executable et ca marche a merveille
mon probleme c'est que j'ai voulu deplacer nmon programme a une autre poste qui n'a pas VB installe
il fallais pour moi de passer par un instalar j'ai utlise INNO SETUP2 pour faire ca
j'ai amene le Setup sur l'autre poste l'application marche mais juste il affiche les forme mais ca parait que il se connecte pas avec ma base de donnes c'est a dire par exemple le DATA GRID que j'utlise n'affiche rien des donnes qui se trouve avec la base
voila comment j'ai fais mon code
j'ai utlise un Class


Public cncont As ADODB.Connection
Public rsclt As ADODB.Recordset
Public rsabon As ADODB.Recordset
Public rsmvAbon As ADODB.Recordset

Private Sub Class_Initialize()
Set cncont = New ADODB.Connection
cncont.Provider = "Microsoft.jet.Oledb.4.0"
cncont.ConnectionString = "C:\sadek\Caisse.mdb"
cncont.Open

End Sub


Private cnt As class1


Private Sub Command1_Click()
nom.Text = ""
prenom.Text = ""
MaskEdBox1.Text = "__/__/____"
Combo1.Text = "10000"
End Sub

Private Sub DataGrid1_Click()
Frame1.Visible = True
Frame4.Visible = True
End Sub

Private Sub fermer_Click()
Unload Me
MCaisse.Show
End Sub
Private Sub Creer_Click()
Set cnt.rsmvAbon = New ADODB.Recordset
cnt.rsmvAbon.Open "Select * From mvAbonne;", cnt.cncont, adOpenDynamic, adLockPessimistic
Frame3.Visible = True
Label9.Caption = Date + (3 * Day(0))
If Combo1.Text = "10000" Then
Label5.Caption = "09:00"
Else
If Combo1.Text = "15000" Then
Label5.Caption = "15:00"
Else
If Combo1.Text = "20000" Then
Label5.Caption = "21:00"
End If
End If
End If
With cnt.rsmvAbon
If nom.Text <> "" And prenom.Text <> "" And MaskEdBox1.Text <> "" Then
.AddNew
![nom] = nom
![prenom] = prenom
![date_naiss] = MaskEdBox1
![type_abon] = Combo1
![Cumul] = Label5
![Date] = Label3
![Credit] = Label6
![Date_validite] = Label9
.Update
.Close
Else
MsgBox ("Veuillez saisir tous les donnees Svp!")
End If
End With

End Sub


Private Sub Form_Load()
Set cnt = New class1
MaskEdBox1.Text = "__/__/____"
Label3.Caption = Date
Combo1.Text = "10000"
Label5.Caption = "00:00"
Label6.Caption = "00:00"
Label5.Caption = ""
Label9.Caption = ""
prenom.Text = ""
End Sub
Private Sub Label5_Change()
Label6.Caption = Label5.Caption
End Sub


Private Sub Mnuquitter_Click()
Unload Me
End Sub


si qlq un peut m'aider a resoudre ca svp
ja'ttend vos aide merci