Error de sintaxis en la instrucción INSERT INTO

Tengo este código:
Call Conexion
With MSHFlexGrid1
For i = 1 To .Rows - 1
mclave = .TextMatrix(i, 2)
mproducto = .TextMatrix(i, 3)
mpreciounitario = .TextMatrix(i, 4)
munidades = .TextMatrix(i, 5)
mtotal = .TextMatrix(i, 6)
mfecha = lblFecha
musuario = lblUsuario
midproducto = .TextMatrix(i, 1)
'sacar id producto
rs.Open "SELECT Id_usuario FROM Usuarios WHERE [Usuario] = '" & lblUsuario & "'", cnn, adOpenStatic, adLockOptimistic
midusuario = rs.Fields("Id_usuario")
rs.Close
 cnn.Execute "INSERT INTO Ventas (Clave,Producto,PrecioUnitario,Unidades,Total,Fecha,Usuario,Id_Producto,Id_Usuario) VALUES('" & _
                                 mclave & "','" & _
                                 mproducto & "'," & _
                                 mpreciounitario & "," & _
                                 munidades & "," & _
                                 mtotal & ",#" & _
                                 mfecha & "#,'" & _
                                 musuario & "'," & _
                                 midproducto & "," & _
                                 midusuario & ")"
Next i
End With
Ya cheque muy bien los nombres de los campos en Access, y que estén escrito correctamente aquí en VB6 también, también puse las variables con apostrofes y la fecha entre numéricos y aun así me sigue apareciendo error de sintaxis en la instrucción INSERT INTO