hjælp vedr. SQL fejl

Jeg har en INSERT sql der skydes af, men jeg får fejl på den hver gang. SQL'en ser således ud:
Dim id = "'" & txtnummer.text & "'"
Dim make = "'" & txtmaerke.text & "'"
Dim model = txtModel.text & "'"
Dim year = txtaar.text
Dim Pris = Request.Form("drpPris")
  objConnection.Open()
            strSQL = "INSERT INTO car ("

            strSQL = strSQL & "CarID, "
            strSQL = strSQL & "make, "
            strSQL = strSQL & "Model, "
            strSQL = strSQL & "Year, "
            strSQL = strSQL & "PriceGroup, "
            strSQL = strSQL & "Picture )"

            strSQL = strSQL & " values ( "

            strSQL = strSQL & "'" & id & "', "  ' tekst
            strSQL = strSQL & "'" & make & "', " ' tekst
            strSQL = strSQL & "'" & model & "', "' tekst
            strSQL = strSQL & "" & year & ", "  ' tal
            strSQL = strSQL & "" & pris & ", "  ' tal
            strSQL = strSQL & "'" & strFileName  ' tekst
            strSQL = strSQL & "');"
          objCommand = New OLEDBcommand(strSQL, objConnection)
          objCommand.ExecuteNonQuery()
Fejlen ser således ud:
Exception Details: System.Data.OleDb.OleDbException: Der er en syntaksfejl i INSERT INTO-sætningen.