' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
    If TableExists("DeineTabelle") Then
      DeineConnection.Execute "DELETE * FROM DeineTabelle"
    Else
      ' Tabelle erzeugen 
    End If

Public Function TableExists(ByVal Table As String) As Boolean
Dim Tabelle As ADODB.Recordset
 
  Set Tabelle = DeineConnection.OpenSchema(adSchemaTables)
 
  Do Until Tabelle.EOF
    If Tabelle!Table_name = Table Then
      TableExists = True
      Exit Do
    End If
    Tabelle.MoveNext
  Loop
 
  Tabelle.Close
  Set Tabelle = Nothing
 
End Function