Insert og update fra VB program til accessdatabase

Hvad mangler jeg i denne kode for at update er muligt?
Hvis jeg erstatter min commandtext til en insert virker det.
err.description = "Data type mismatch in criteria expression"

Public Sub UpdateBarcodes(Barcode As String, NewStatus As String)

On Error GoTo err_handler

Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Set cmd = MakeConnection()

  cmd.CommandText = "Update tblStregkode set Sendt = " & NewStatus & " where stregkode = " & Barcode & " "

  rs.CursorType = adOpenKeyset
  rs.CursorLocation = adUseClient
  rs.LockType = adLockBatchOptimistic
  rs.Open cmd

  Call closeConnection(cmd)
  Set rs = Nothing
  Exit Sub