Problemer med at udfylde sqlDB

Jeg har en telefonbog, som jeg gerne vil fylde ud med nogle data fra en AccessDB. Koden forløber fint, men når den er færdig er SQL databasen ikke udfyldt.

Private Sub Udfyld_Click()
    \'Dim ws As Workspaces
    Dim dbtil, dbfra As Database
    Dim rs As Recordset
    Dim antal As Integer
    Dim sql, values, samlSQL As String
       
    Set ws = Workspaces(0)
    Set dbtil = ws.OpenDatabase(\"\", dbDriverComplete, False, \"ODBC;DATABASE=telefonbog;UID=sa;PWD=;DSN=telefonbog_sql\")
           
    Set dbfra = ws.OpenDatabase(\"F:\\DATABASE\\Office2000dk\\Intranetdatabaser\\Telefonbog\\TelefonBog.mdb\")
    Set rs = dbfra.OpenRecordset(\"TelefonData\")
   
    antal = 0
    sql = \"Insert into Person (Navn, Initialer, Afdeling, Stillingbetegn, lokal, Email) Values \"
    While Not (rs.EOF)
        \'Navn
        values = \"(\'\" & rs(\"fornavn\")
        If Not (rs(\"mellemnavn\") = \" \") Then
            values = values & \" \" & rs(\"mellemnavn\")
        End If
        values = values & \" \" & rs(\"efternavn\") & \"\', \"
       
        \'Initialer
        values = values & \"\'\" & rs(\"Initialer\") & \"\', \"
       
        \'Afdeling
        values = values & \"\'\" & rs(\"kontor\") & \"\', \"
       
        \'Stillingsbetegn
        values = values & \"\'\" & rs(\"Titel\") & \"\', \"
               
        \'Lokal
        values = values & \"\'\" & rs(\"telefon_nummer\") & \"\', \"
               
        \'Email
        values = values & \"\'\" & rs(\"Initialer\") & \"@arf.dk\')\"
               
        samlSQL = sql & values
        \'MsgBox samlSQL
        dbtil.Execute (samlSQL)
       
        antal = antal + 1
        rs.MoveNext
    Wend
   
    \'Direktørerne skal med
    \'Her tages afdelingsnavnet i stedet for kontornavnet(da det ikke eksisterer)
    Set rs = dbfra.OpenRecordset(\"TelefonDataCF\")
    While Not (rs.EOF)
        \'Navn
        values = \"(\'\" & rs(\"fornavn\")
        If Not (rs(\"mellemnavn\") = \" \") Then
            values = values & \" \" & rs(\"mellemnavn\")
        End If
        values = values & \" \" & rs(\"efternavn\") & \"\', \"
       
        \'Initialer
        values = values & \"\'\" & rs(\"Initialer\") & \"\', \"
       
        \'Afdeling
        values = values & \"\'\" & rs(\"afdelinger\") & \"\', \"
       
        \'Stillingsbetegn
        values = values & \"\'\" & rs(\"Titel\") & \"\', \"
               
        \'Lokal
        values = values & \"\'\" & rs(\"telefon_nummer\") & \"\', \"
               
        \'Email
        values = values & \"\'\" & rs(\"Initialer\") & \"@arf.dk\')\"
               
        samlSQL = sql & values
        dbtil.Execute (samlSQL)
       
        antal = antal + 1
        rs.MoveNext
    Wend
   
    MsgBox (antal & \" - \" & samlSQL)
End Sub