报销系统一日通

Private Sub Form_Load()
Dim strSQL As String
Dim strUser As String
   strUser = GetParameter("current User UserName")
 If HasPermission("报销明细", "查看全部") = True Then
      strSQL = "select * from qryExpense"
Else
  strSQL = "select * from qryExpense where Operator=' " & strUser & "'"
End If
       Me.RecordSource = strSQL

End Sub

加上之后，普通用户就自己的也看不到了，求解？