Si a mi me paso también con access y lo que hacia es convertir la fecha asi:
V01 = Val(txtNFactura.Text)
V02 = "#" & Format(txtFecha.Text, "dd-mm-yyyy") & "#"
V02 = "'" & Text2.Text & "'"
ComandoSQL = "INSERT INTO ventas (NFactura, Fecha, Razon ) VALUES (" & V01 & "," & V02 & "," & V03 & ")"
ADOConexion.Execute ComandoSQL