[vbnet]

.....

هذا الرابط راح يفيدك كثير(DAO Programming Code Examples)

كود :

Private Sub Form_Load()
    Set db = OpenDatabase(App.Path & "\db1.mdb", 2)
End Sub

' حذف جدول من قاعدة البيانات
Private Sub Command1_Click()
    On Error GoTo ErrHandle
    If MsgBox("هل أنت متأكد من حذف الجدول", vbYesNo + vbQuestion) = vbYes Then
        db.TableDefs.Delete "soft1"
        MsgBox "تم حذف الجدول بنجاح"
    End If
Exit Sub
ErrHandle:
    MsgBox Err.Description
End Sub

.....