Utilizar SQL en VBASIC??

[crancurello]

Hola de nuevo

he puesto todo tal cual me explicaste que lo hiciera, pero el error sigue en la linea de :

Set cn = Application.CurrentProject.Connection

el error es el 430 y dice que esta clase no permite automatizacion.. no he podido encontrar nada al respecto. este es el código acomodado a mis necesidades:

Private Sub insertar_Click()

Dim cn As New ADODB.Connection
Dim inserta As New ADODB.Command
Dim strInserta As String
Dim rs As New ADODB.Recordset

Set cn = Application.CurrentProject.Connection

strInserta = "INSERT INTO tempreporte(CÓDIGO, DESCRIPCIÓN, UM,CANTIDAD)VALUES('" & Me.CÓDIGO.Value & "', '" & Me.DESCRIPCIÓN.Value & "' , '" & Me.UM.Value & "' , '" & Me.CANTIDAD.Value & "')"
Set inserta.ActiveConnection = cn
inserta.CommandText = strInserta
rs.Open "tempreporte", cn, , , adCmdTable

inserta.Execute
rs.Requery

End Sub


.::Saludos