dim wstrsql as string
dim wrstwrk as Recordset

wstrsql = "SELECT * FROM MSTJUSYO WHERE NAME = '" & 東 & "'"
Set wrstwrk = gConnDB.OpenRecordset(wstrsql, dbOpenDynaset)

こんな感じでデーターベースにアクセスするんだと思います。
この続きが分からなくて・・・
お願いします。