Public Sub removeDadosObsoletos()

    Dim db As DAO.Database
    Set db = CurrentDb()
    Dim rs As DAO.Recordset
    Set rs = db.OpenRecordset("SELECT tblDados.DATA_ULTIMA_MOVIMENTACAO FROM tblDados;")
    Dim lQtd As Long    //variável que recebe a quantidade total de registros
    //conta o número de registros
    rs.MoveLast
    lQtd = rs.RecordCount

    //variável que irá contar os registros
    Dim lContador As Long
    lContador = 0
    //loop que irá percorrer a tabela
    rs.MoveFirst    //vai para o primeiro registro

    Do While Not rs.EOF

        rs!DATA_ULTIMA_MOVIMENTACAO = ""

        lContador = lContador + 1 //acrescenta 1 na quantidade

        rs.MoveNext //proximo registro

    Loop

    rs.Close
    Set rs = Nothing

    db.Close
    Set db = Nothing

    MsgBox "Registros obsoletos removidos com sucesso!", vbInformation, "Otimização dos Dados..."

    Exit Sub
End Sub