权限设置出错

antywjl

设置的权限无法实现?哪位高手帮我看看问题出在哪?
Option Compare Database
Public rsX As Recordset
Public rsdb As Database
Public user_level As String
Public login_successful As Integer
Public user_name As String



Public Function check_level(form_name As String, login_level As String) As Integer

Set rsX = CurrentDb.OpenRecordset("select * from [对象列表] where [对象]='" & form_name & "' and [用户群组] like'*" & login_level & "*'")

  If Not rsX.EOF Then
    rsX.Close
    check_level = 1
  Else
    check_level = 0
    rsX.Close

   
  End If
  
  End Function

[此贴子已经被作者于2006-6-7 16:26:25编辑过]

antywjl

谁能帮我看看代码,模块中出错实现不了用户权限设置