Dim strSQL As String = ("UPDATE Staff SET StaffName = ['" & _ namebox.Text & "'] ,Address = ['" & addbox.Text & _ "'] ,Phone = ['" & phone & "'] ,JobPosition = ['" & _ posbox.Text & "'] ,JobStat = ['" & genId & _ "'] WHERE SID='" & id.Text & "'")