Public Sub Main()
  ' Prüfen, ob Anwendunng bereits gestartet
  If App.PrevInstance Then
    ' Ja! Jetzt Fenster-Handle ermitteln
    Dim RetVal As Long
    RetVal = FindWindow(vbNullString, _
      "Meine Anwendung")
    If RetVal <> 0 Then
        Dim Db As Database
        Dim Tabelle As Recordset
        Dim dbFile As String
 
        dbFile = App.Path + "\DATEN.MDB"
        Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
        Set Tabelle = Db.OpenRecordset("Option")
        Tabelle.AddNew
        Tabelle("befehl") = Command
        Tabelle.Update
        Tabelle.Close
        Db.Close
        Set Tabelle = Nothing
        Set Db = Nothing
      ' Anwendung gefunden - jetzt aktivieren
        Call SetForegroundWindow(RetVal)
    End If
 
    ' zweite Instanz beenden
    End
  End If
 
End Sub

Private Sub Form_Activate()
 
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
    Dim Anzahl As Integer
 
    dbFile = App.Path + "\DATEN.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Option")
    Anzahl = Tabelle.RecordCount
    If Anzahl > 0 Then
        Tabelle.MoveLast
        Befehl = Tabelle("Befehl")
        If Befehl <> " " Then
        Tabelle.Delete
        End If
    End If
    Tabelle.Close
    Db.Close
    Set Tabelle = Nothing
    Set Db = Nothing
.......