Syntax error in update statement in vb.net with MS access

Try

    adp = New OleDbDataAdapter("select * from Login", con)
    dt.Clear()
    adp.Fill(dt, "Login")
    str = "Update Login set Password='" + txtNpassword.Text + "' where Type='" + cbDesignation.Text + "' and UserId='" + txtuname.Text + "'"
    cmd = New OleDbCommand(str, con)
    Dim i As Integer
    For i = 0 To dt.Tables(0).Rows.Count - 1
        If (cbDesignation.Text = dt.Tables(0).Rows(i).Item(1) And txtuname.Text = dt.Tables(0).Rows(i).Item(2)) Then
            UID = True
            Exit For
            
        End If
    Next
    If UID = True Then
        con.Open()
        cmd.ExecuteNonQuery()
        MsgBox("Password Changed successfully", MsgBoxStyle.Information)
    Else
        MsgBox("Password Not changed", MsgBoxStyle.Information)

    End If


Catch ex As Exception
    MessageBox.Show(ex.Message)

Finally
    If (con.State = ConnectionState.Open) Then
        con.Close()

    End If
    UID = False

End Try