Jag försöker att göra en dynamisk insert, men jag får syntaxfel i insert-into utryck.

Datatyper:
ArrNo = text
Songtitel = text
Kategori = tal
Album = tal
Stim = text
Verknr = text
Hide = ja/nej
Antck = PM

<code>
SQLVarde = "ArrNo,SongTitel"
ValueVarde = "'" & Byta(strArrNo) & "','" & Byta(strSongTitel) & "'"

If LEN(strKategori)>0 Then
SQLVarde = SQLVarde & ",Kategori"
ValueVarde = ValueVarde & "," & strKategori & ""
End If

If LEN(strAlbum)>0 Then
SQLVarde = SQLVarde & ",Album"
ValueVarde = ValueVarde & "," & strAlbum & ""
End If

If LEN(strStim)>0 Then
SQLVarde = SQLVarde & ",STIM"
ValueVarde = ValueVarde & ",'" & Byta(strStim) & "'"
End If

If LEN(strVerkNr) > 0 Then
SQLVarde = SQLVarde & ",Verknr"
ValueVarde = ValueVarde & ",'" & Byta(strVerkNr) & "'"
End If

SQLVarde = SQLVarde & ",HIDE,Anteck"
ValueVarde = ValueVarde & "," & strHide & ",'" & Byta(strAnteck) & "'"

SQL = ("Insert INTO t_SongTitlar(" & SQLVarde & ")Values(" & ValueVarde & ")")

Connection.Execute(SQL)
</code>
Om jag skriver ut SQL-strängen så ser det ut så här:
<code>
Insert INTO t_SongTitlar(ArrNo,SongTitel,Kategori,Album,HIDE,Anteck)Values('001','Jazzmanen',4,1,,'')
</code>
Någon som kan upptäcka felet?

[REDIGERAT]
Löst, det hadde smyget sig in ett fel där det skulle vara tal istället för text