Der er en syntaksfejl i INSERT INTO-sætningen.

Hej folkens....

Jeg har skrevet nedenstående sub-rutine og går fejlen:
Der er en syntaksfejl i INSERT INTO-sætningen.
Fatter ikke hvad fejlen er. Har testet at feldterne eksisterer i DB'en og hedder det rigtige...

På forhånd tak for hjælpen...

Sub cmdLogin_Click(sender As Object, e As EventArgs)
   
        Dim strConnect as String = "Provider=Microsoft.Jet.OLEDB.4.0;"
        strConnect += "Data Source=" & server.mappath("db/lommebog.mdb") & ";"
        strConnect += "Persist Security info=False"
   
        Dim strSQL as String = "SELECT a.brugernavn, a.password FROM brugere AS a WHERE a.brugernavn = '" & txtBrugernavn.Text & "'"
   
        Dim strBrugernavn as String
        Dim strPassword as String
   
        Dim objConnection as new OledbConnection(StrConnect)
        Dim objCommand as new OleDbCommand(StrSQL, objConnection)
   
   
        Dim objDataReader as OleDBDataReader
            objConnection.Open()
            objDataReader = objCommand.ExecuteReader()
   
   
   
            IF objDataReader.Read() THEN
                lblMessage.Text = "Det indtastede brugernavn findes allerede"
   
   
   
            ELSE
                objDataReader.close()
               
                Dim UpdateCommand As OleDbCommand = new OleDbCommand()
   
                UpdateCommand.Connection = objConnection
   
                ' Opbyg SQL-kommando
               
               
               
                UpdateCommand.CommandText = "INSERT INTO brugere (brugernavn, password)"
                UpdateCommand.CommandText += " VALUES (@brugernavn, @password)"
   
                UpdateCommand.Parameters.Add("@brugernavn", OleDBType.Varchar).Value = txtBrugernavn.Text
                UpdateCommand.Parameters.Add("@password", OleDBType.Varchar).Value = txtPassword.Text
   
               
                'response.write(UpdateCommand.CommandText)
               
                UpdateCommand.ExecuteNonQuery()  ' Udfør kommando (SQL-streng)
                         
                lblMessage.Text = "Din profil er nu oprettet - login for at komme igang"
   
            END IF
   
            objDataReader.close()
            objConnection.close()
    End Sub