Problemer med INSERT INTO

Hvad er der galt her, jeg forsøger at sætte værdien 1 ind i feltet "Knap" der er defineret som Byte i tabellen.

tblPlacering
  Placering            Yes/No
  PresseKlipRefNr      Number    Long Integer
  Knap                  Number    Byte

Placeringsværdien kommer når der trykkes på knappen, PresseklipRefNr kommer fra en hovedformular, hvordan får jeg værdien 1 ind i Knap?


Private Sub ToggleButton1_Click()
Dim vaerdi As Byte
    If Togglebutton1.Value = -1 Then
        'DoCmd.SetWarnings False
        vaerdi = "1"
        DoCmd.RunSQL "INSERT INTO tblPlacering (Knap) VALUES ('" & vaerdi & "')"
        'DoCmd.SetWarnings True
        'Me.Refresh
    End If
End Sub