私人？Sub？Command1_Click()
例如，查詢記錄
暗淡？strSQL？作為？線
打電話？SJK(db)？打開數據庫。
strSQL？=?“選擇？*?從哪裏？知班？在哪裏？ID=1 "
設置？RS？=?db。OpenRecordset(strSQL)
如果？不是嗎？RS。EOF？然後
為了什麽？我？=?1?去哪？17
如果？RS(CStr(I)？& amp？“類”)？& lt& gt？""?然後呢？Text1(I)。文字？=?RS(CStr(I)？& amp？“類”)
下壹個？我
其他
MsgBox？“沒有數據！”
結束？如果
RS。關閉
db。關閉
結束？如果妳需要地址，我會發給妳。