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