كيف اربط الVb بال Access اذا فيه رقم سري ؟

الحل هنا اخي العزيز /

http://uni.hiarab.net/showthread.php?t=3562&highlight=ado

تحياتي

شكراً على ردك اخي العزيز

ولكن هذ الكود لايعمل

يطلع لي Runtime Error :

Cannot work your application . the workgroup information file is missing or opened exculsivly by another use

Public Sub OpenDatabase()

Set Cnn = New Connection

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyPath & "\db.mdb"

Cnn.Properties("Jet OLEDB:Database Password") = "123456"

Cnn.Open

End Sub

هل هذا الكود يصلح عند الربط بـ data

السلام عليكم

شكرا جزيلاً لك يا اخ xsco2004 على هذه المعلومة

استعملت الكود واشتغل

شــــــــــــــــــــــكراً