最も実用的なWebページSpecial Effectコードを収集してください！
function dlookup（strfieldname、strtablename、strwhere、objconn）
'アクセスVBAの参照dlookup関数
'環境が異なるため、objconnパラメーターが追加され、adodb.connectionが直接転送されます
dim strsql
薄暗いrs
rs = server.createObject（ "adodb.oldset"）を設定します
'外部カスタム関数を呼び出しましょうchecksql（）
strfieldname = checksql（strfieldname）
strwherewhere <> ""その後
strwhere = "where"＆strong
ifを終了します
strsql = "select"＆strfieldname＆ "from"＆strtablename＆ "＆strwhere
'Debugstop strsql
エラーの再開時に次に再開します
rs.oopen strsql、objconn、1、1
err <> 0の場合
Response.write err.descripting
Response.End（）
ifを終了します
rs.eofとrs.bofの場合
dlookup = "" "
それ以外
'カスタム関数NZを呼び出す
「詳細については、アクセスVBAヘルプの情報を参照してください
dlookup = nz（rs（rs（strfieldname）、 ""）
ifを終了します
rs.close
エンド関数