about MIS security issue(編號:2352)

請問大家:
你們是怎麼作權限的管理呢?
我是用database的role配合VB程式
With Adodc1
.ConnectionString = Connect_User
    .CommandType = adCmdText
    .UserName = "role"
    .Password = "123"
    .RecordSource = "SELECT * FROM tablename"    
    .Refresh
 End With
但好像沒用ㄟ,書上又沒教.