Erro "Fractional Truncation" no SQL Server com Access VBA - ADO

Se você está usando uma simples rotina ADO (a partir do Access ou do Excel, por exemplo) para gravar um registro no SQL Server e está recebendo uma mensagem de erro “Fractional Truncation”, é possível que seja por causa de um campo DateTime.

Embora o código esteja correto, pode ser que o SQL Server não entenda isto se o cursor estiver do lado servidor:

rst.DataVcto = CDate(Me.DataVencimento)

A solução é formatar a data para string no formato usado pelo SQL Server:

rst.DataVcto = Format(Me.DataVencimento, “yyyy-MM-dd”)

Se o cursor estiver do lado cliente (rst.CursorLocation = adUseClient), não é necessário formatar a data, o código original deverá funcionar.