Primeiro dia do mês
Function PrimeiroDiaDoMês(D As Variant) As Variant
D = Date
PrimeiroDiaDoMês = DateSerial(Year(D), Mês(D), 1)
End Function
Cancela as alterações efetuadas no banco de dados em uma conexão com transação.