ник: kot_k_k
Пароли вообще мона хранить в другой БАЗЕ, и вот так до нее программно дозваниваться!!!
Dim con As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim rst_G As ADODB.Recordset
Set rst = New ADODB.Recordset
Set rst_G = New ADODB.Recordset
con.Provider = "MSDataShape"
con.ConnectionString = "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\pasword.mdb;User Id=admin;Password=;"
con.Open
rst.StayInSync = False
rst.MoveLast
и делай с ней чё хош.
а на SQL твой запрос выглядеть должен так:
str_="select * from табла_с_паролями where имя_пользователя=" & Пользователь_аффтаризованный & " and поле_значение_пароля=" & me!Pass (введенный пароль,
если пользовательне аффтаризируется то
str_="select * from табла_с_паролями where поле_значение_пароля=" & me!Pass
set Pas_Word=dbs.OpenRecordset(str_)
если нет записи BOF=true и EOF =true то фиг с маслом!!!
если есть - то доступ