Error INSERT INTO - SQL

[Joven_Padowan]

Buenas a todos,

Estoy liado con una aplicacion en visual basic.net con la cual tengo que hacer una consulta SQL en un recordset para que me inserte en un formulario los resultados.

La consulta es la siguiente:

Código:

StrSQL = "SELECT * FROM dbo_albaranes_lineas "
        StrSQL = StrSQL & "WHERE num_albaran = " & Str(Forms("Albaranes - Añadir").Controls("Taula_Numero").Value) 
        Set bd = CurrentDb
        Set rs = bd.OpenRecordset(StrSQL)
        
        While Not rs.EOF

            StrSQL = "INSERT INTO dbo_albaranes_lineas "
            StrSQL = StrSQL & "VALUES ('" & rs.Fields("tipo_albaran").Value & "'," & Str(Forms("Albaranes").Controls("C_Num_Albaran").Value) & "," & rs.Fields("n_linea") & "," & rs.Fields("cantidad").Value & ",'" & rs.Fields("referencia").Value & "'," & rs.Fields("sn").Value & "," & rs.Fields("almacen").Value & ",'" & rs.Fields("descripcion").Value & "'," & rs.Fields("precio").Value & ",'" & rs.Fields("id_moneda").Value & "', " & rs.Fields("empresa_asignado").Value & "," & rs.Fields("cantidad_asignado").Value & "," & rs.Fields("saldado").Value & "," & rs.Fields("precio_medio_calculado").Value & ","
            StrSQL = StrSQL & "'" & Str(Me.num_albaran.Value) & "', 'ALBARAN','PTA')"
            bd.Execute StrSQL
            Num_Linia = Num_Linia + 1
            rs.MoveNext
        Wend

Cuando estoy debugando el código, me da el siguiente error: "Se ha producido el error '3134' en tiempo de ejecución. Error de sintaxis en la instrucción INSERT INTO.

¿Alguna idea de cuál es el problema del INSERT INTO?

Gracias por la ayuda!

[.seb]

Tal vez los values los estas escribiendo en un orden que no es el correcto.
Te conviene escribir los nombres de los campos que estas llenando.

Código:

INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES (VALOR1,VALOR2)

[Joven_Padowan]

Gracias .seb!

En principio, los insert los hace correctamente, peeeerooo... no me los muestra por pantalla en la tabla dbo_albaranes_lineas (que es el cuerpo de los albaranes, donde deberían salir las lineas del insert)...

¿Teneis idea de por qué no aparecen?

He probado de añadir un me.requery o me.refresh después del Wend, pero nada...

Ayuda, por favor!

Gracias