aboilyas

تفضل ضع هذا الكود في Module: Public DB As New ADODB.Connection Public rs As New ADODB.Recordset Public sql As String Sub Connection() If DB.State = 1 Then DB.Close DB.Provider = "Microsoft.JET.OLEDB.4.0" DB.Open App.Path & "\yourdatabase.mdb" End Sub ثم ضع هذا…