Parece entonces que lo que está mal es Query.
Para ver qué es lo qeu estás pasando exactamente, muéstrate en un msgbox la consulta, tal que así:
Cita: msgbox("Insert into Articulos (Referencia, Nombre, Stock, Lote,Serie)
values('" & Referencia.ToString & "','" & Nombre.ToString & "','" & Stock.ToString & "','" & Lote.ToString & "', '" & Serie.ToString & "')")
por cierto, me acabo de dar cuenta de una cosa.
Los campos Referencia.ToString, Nombre.ToString, Stock.ToString... etc etc etc,
¿son variables, o son textbox del formulario??
Te pregunto porque en caso de ser variables solo tendrias que poner el nombre de la variable, y en caso de ser testbox tienes qeu poner:
Referencia.text, Nombre.text, Stock.text, ...
Creo qeu este es el fallo.
Nos dices.
Saludos