Ejecutar sentencia insert en VBA Excel

[maialenlopez]

Hola,

No sabia donde meter este tema pero necesito vuestra ayuda.

No se como ejectura la sentencia insert que tengo en vba excel. Escribo lo que tengo para que me echéis una mano.

Código vba Excel:

Public conn As New ADODB.Connection
Public tabla As New ADODB.Recordset
Public comando As New ADODB.Command
 
Private Sub Guardar_Click()
    ' Leer datos de las celdas necesarias de la hoja Empleados hydro
    
    Dim fila, columna, cont As Integer
    Dim codEmpleado, operario, codSeccionRRHH, di, linea, sublinea, seccion, seccionDes As String
    fila = Cells(Rows.Count, 4).End(xlUp).Row 'cuenta la cantidad de filas que tiene el excel
    
    conn.Open "DSN=horas"
    If conn.State = 1 Then
        'MsgBox "conexion"
        'MsgBox fila
        For cont = 4 To fila
            codEmpleado = Cells(cont, 4).Value
            operario = Cells(cont, 5).Value
            codSeccionRRHH = Cells(cont, 6).Value
            di = Cells(cont, 8).Value
            linea = Cells(cont, 9).Value
            sublinea = Cells(cont, 10).Value
            seccion = Cells(cont, 11).Value
            seccionDes = Cells(cont, 12).Value
            Sql = "INSERT INTO horas.operario(CodEmpleado, Operario, CodSeccionRRHH, DI, Linea, SubLinea, Seccion, SeccionDes)" & _
                    " VALUES(' " & codEmpleado & " ',' " & operario & " ',' " & codSeccionRRHH & " ',' " & di & " ',' " & linea & " '" & _
                    ",' " & sublinea & " ',' " & seccion & " ',' " & seccionDes & " ')"
 
             [B]'NECESITO SABER COMO EJECUTAR LA QUERY DEL INSERT[/B]
            
        Next
        conn.Close
    Else
        MsgBox "error en la conexion"
    End If
End Sub