帮忙找错误

提示：查询错误：语法错误（操作符丢失）在查询表达式'* from 员工信息 where SID= "P0000006"'
ElseIf flag = 2 Then                         '修改操作
        SQL = "update 员工信息 set SGender='" & Gender.Text & "',SPlace='"
        SQL = SQL & Trim(Me.Place) & "', SAge=" & Trim(Me.Age)
        SQL = SQL & ",SBirthday='" & Trim(Me.Birthday) & "',"
        SQL = SQL & "SDegree='" & Trim(Me.Degree) & "',"
        SQL = SQL & "SSpecial='" & Trim(Me.Major) & "',"
        SQL = SQL & "SAddress='" & Trim(Me.Address) & "',"
        SQL = SQL & "SCode='" & Trim(Me.Code) & "',"
        SQL = SQL & "STel='" & Trim(Me.Tel) & "',SEmail='" & Trim(Me.Email) & "',"
        SQL = SQL & "SWorkTime='" & Trim(Me.WorkTime) & "',"
        SQL = SQL & "SInTime='" & Trim(Me.InTime) & "',"
        SQL = SQL & "SDept='" & Trim(Me.Dept) & "',SPayTime='" & Trim(Me.PayTime)
        SQL = SQL & "',SPosition='" & Trim(Me.Position) & "',"
        SQL = SQL & "SRe='" & Trim(Me.Re) & "' where SID='" & Trim(Me.ID) & "'"
        TransactSQL (SQL)
        MsgBox "记录已经成功修改！", vbOKOnly + vbExclamation, "修改结果！"
        Unload Me
        SQL = "select * from 员工信息"
        frmResult.createList (SQL)
        frmResult.Show
    End If ElseIf flag = 2 Then                      '判断为修改信息
        Set rs = TransactSQL(gSQL)
        If rs.EOF = False Then
        With rs
            Me.ID = rs(0)
            Me.YGName = rs(1)
            Me.Gender = rs(2)
            Me.Place = rs(3)
            Me.Age = rs(4)
            Me.Birthday = rs(5)
            Me.Degree = rs(6)
            Me.Major = rs(7)
            Me.Address = rs(8)
            Me.Code = rs(9)
            Me.Tel = rs(10)
            Me.Email = rs(11)
            Me.WorkTime = rs(12)
            Me.InTime = rs(13)
            Me.Dept = rs(14)
            Me.PayTime = rs(15)
            Me.Position = rs(16)
            Me.Re = rs(17)
        End With
        rs.Close
        Me.Caption = "修改" & Me.Caption
        Me.ID.Enabled = False
        Me.YGName.Enabled = False
        Else
            MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
        End If
    End If