Código:
El tema es que la sintaxis, creo, es correcta, y la base de datos tampoco tiene ningun error, es mas, tiene registros ingresados, mi duda esta en el 1 casi al final, alguna sugerencia? compras.Open "INSERT INTO compras (id,fecha,detalle,cantidad,precio_venta,precio_costo,sobrante) VALUES ('" & Text2.Text & "','" & Text3.Text & "','" & Trim(Text4.Text) & "','" & Text5.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & 1 & "')", BD, adOpenStatic, adLockOptimistic -