[larbihamri]

حاولي ان تقومي بالخطوات كما قلت لك
عن طريق مكتبة الادو اما عن طريق Microsoft DAO 3.6 Object Library و الله ما اعرف الطريقة
و الكود كالتالي

Private Sub Form_Load()
With cn
.Provider = "microsoft.jet.oledb.4.0"
.CursorLocation = adUseClient
.Open App.Path & "\pharmace.mdb"
End With
sql = "select*from x"
x هنا تمثـــل الجــــــدول الــــذي تريديـــــن فتحـــــــــــــــه

If rs.State = adStateOpen Then
rs.Close
End If
rs.Open sql, cn, adOpenStatic, adLockOptimistic
End Sub
و الله اعلم