اتصال به بانك اطلاعاتي با Vb6

[moj101]

سلام
من يك برنامه نوشته ام كه از دستورات ado براي اتصال به بانكي از نوع اكسس استفاده مي كند چطور مي توانم مطمين شوم كه در تمام كامپيوتر هايي كه برنامه نصب مي شود برنامه درست كار مي كند
با تشكر

[hoseinquest]

تو چنتا کامپیوتر امتحان کن!!!

[moj101]

در برنامه نوشته شده ابتدا با استفاده از از رجيستري يك Dsn بر روي ماشين ميزبان مي سازم و سپس با استفاده از رشته اتصال توليد شده به بانك وصل مي شوم . اين روش در بعضي سيستم ها جواب ميده و لي در بعضي ديگه جواب نميده در اتصال بعدي كد هاش را مي ذارم ببنيد عيبش چي چيه
با تشكر

[moj101]

من یک پایگاه داده در اکسس ساخته ام و برای ورود به آن کلمه عبور تعیین کرده ام
(هر چند براحتی کشف خواهد شد ؟؟؟)
ولی توسط کد زیر زیر به بانک نمی توان متصل گردید و پیغام خطا می دهد.
Private Sub Command1_Click()
Cnnstr
End Sub

Public Sub Cnnstr()
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Vb Work New\NewCheckSysMIDI\User.mdb;Persist Security Info=True"
Cnn.Open strProvider, "admin", "!#%#"
MsgBox Cnn.State
Cnn.Close
Set Cnn = Nothing
End Sub

در حالی که با کد زیر اتصال برقرار خواهد گردید
Public Sub Cnnstr2()
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
strProvider = "MSDASQL.1;Persist Security Info=False;Extended Properties=" & _
"DSN=MS Access Database ;DBQ=" & App.Path & "\User.mdb" & _
";DefaultDir=" & App.Path & ";DriverId=25;FIL=MS Access; MaxBufferSize=2048;PageTimeout=5;UID=admin;"
Cnn.Open strProvider, "admin", "!#%#"
MsgBox Cnn.State
Cnn.Close
Set Cnn = Nothing
End Sub

در کد دوم حتما باید یک DSN=MS Access Database در کامپیوتر میزبان تعریف شده باشد
نام بانک اطلاعاتی User و کلمه عبور آن !#%# می باشد
حالا مساله در این است که کدام روش ارجح است و برای فایلهای محافظت شده توسط
کلمه عبور چه راهکارهایی پیشنهاد می دهید.
با تشکر م