Private Sub Command1_Click()
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
 
dbFile = App.Path + "\STADT.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset(DBCombo1)
 
Tabelle.Delete
 
End Sub

mfG.
Stephan