Function TabelleLöschenADO()
    Dim dbs As DAO.Database
    Dim strSQL As String
    Set dbs = openDataBase("D:\MeineDatenbank.mdb")
    strSQL = "DELETE * FROM tblNAME;"
    dbs.Execute strSQL
    dbs.Close
End Function

Function TabelleLöschenADO()
    Dim cnn As New ADODB.Connection
    Dim strSQL As String
    With conn
        .Provider = "Microsoft Jet 4.0 OLE DB Provider"
        .ConnectionString = "D:\MeineDatenbank.mdb"
        .Open
    End With
    strSQL = "DELETE * FROM tblNAME;"
    cnn.Execute strSQL
    cnn.Close
End Function