[hannileo]

الحقيقة اخواني الكرام 
وجدت هذا المثال حاولت ان اعدل على مشروعي بنفس الطريقة لكنني لم استطع 

اول مرة اقوم بعمل قاعدة بيانات من نوع SQL 

لكن المثال الملحق ستخدم اداة Data 

وانا استخدم Modules 

كود :

Public rs As New ADODB.Recordset
Public cn As New ADODB.Connection
Public sql As String
Dim dbpath As String

Sub main()

Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With

dbpath = App.Path & "\database\database.mdb"

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbpath & " ;Persist Security Info=False"

Form2.Show
frmLogin.Show
End Sub

هل يمكن كم حضرتكم تعديله على طريقة الاتصال بدون ادوات وبنفس صيغة SQL وبدون ادوات 



حتى اتمكن من فهمه بشكل افضل 

ملاحظة يرجى اضافة زر cmd_save  للفورم 

وشكرا لكم


عذراً لقد تم تحميل الملف بعد ان نسيت تحميله بالسابق