Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
вообще конечно лучше что-то почитать про SQL сервер, сохраненные процедуры и т.п.
а если в лоб, но ваш код будет будет выглядеть как-то так (возможны ошибки, потому что пишу прямо сюда без проверки
все строки добавлененные мной отмечены курсивом

Function paswd()     Dim strSelect As String     Dim strFrom As String     Dim strWhere As String     Dim qqq As String     Dim www As String     Dim strsql As String     dim rst as adodb.recordset        dim fld as adodb.field               strSelect = "SELECT "     strSelect = strSelect & "pas.id, pas.idparol, pas.iduser, pas.idrole, pas.idnaim"     strFrom = " FROM pas"     strWhere = " WHERE true" If Nz([Form_Avtorizaciy].[Пароль], 0) > 0 Then qqq = [Form_Avtorizaciy].[Пароль] If Nz([Form_Avtorizaciy].[Логин], 0) > 0 Then www = [Form_Avtorizaciy].[Логин] If Nz(qqq, 0) > 0 Then strWhere = strWhere & " and pas.idparol = " & """" & qqq & """" If Nz(www, 0) > 0 Then strWhere = strWhere & " and pas.iduser = " & """" & www & """"     strsql = strSelect & strFrom & strWhere & ";"      set rst = new adodb.recordset      with rst            .open strsql, currentproject.connection            if .eof and .eob then                        debug.print "нет записей с такими именем + пароль"            else                    for each fld in  .fields                        debug.print  fld.name, fld.value                   next            end if      end with    rst.close   set rst = nothing  End Function

ну и конечно на замечание Мюллера обратите внимание.