' abrir el recordset indicando la tabla a la que queremos acceder
rs.Open "INSERT INTO PRODUCTO (ID_PRODUCTO, DESCRIPCION_PRODUCTO) VALUES ( " & Text1.Text & ", '" & Text2.Text & "')", conn, adOpenDynamic, adLockOptimistic
'declaracion variables
Dim referencia As Double
Dim descripcion As String
referencia = Text1.Text
descripcion = Text2.Text
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
