设置的权限无法实现?哪位高手帮我看看问题出在哪?[attach]18354[/attach]
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