私人？Sub？BEG_Click()
定時器1。啟用？=?真實的
如果？求求。標題？=?“開始抽簽”？然後
求求。標題？=?“停止”
其他
求求。標題？=?“開始抽簽”
定時器1。啟用？=?錯誤的
結束？如果
結束？潛水艇
私人？Sub？ADD_Click()
暗淡？STR？作為？線
STR？=?InputBox("請輸入要添加的名稱")
暗淡？康恩？作為？新的？ADODB。關系
暗淡？rs？作為？新的？ADODB。記錄集
暗淡？Str1？作為？線
暗淡？Str2？作為？線
暗淡？Str3？作為？線
Str1？=?“提供商=微軟。Jet . OLEDB.4.0”
Str2？=?“數據？Source=C:\Documents？然後呢。設置\管理員\桌面\DB2。MDB”
Str3？=?“噴氣式飛機？OLEDB:數據庫？密碼= "
控制室。打開嗎？Str1？& amp？Str2？& amp？Str3
strSQL？=?“選擇？*?從哪裏？表1？”
rs。開放？strSQL，？康恩？3,?三
rs。添加新內容
rs！名字？=?力量值
rs。更新
rs。關閉
關閉控制室
結束？潛水艇
私人？Sub？Form_Load()
定時器1。啟用？=?錯誤的
暗淡？康恩？作為？新的？ADODB。關系
暗淡？rs？作為？新的？ADODB。記錄集
暗淡？Str1？作為？線
暗淡？Str2？作為？線
暗淡？Str3？作為？線
Str1？=?“提供商=微軟。Jet . OLEDB.4.0”
Str2？=?“數據？Source=C:\Documents？然後呢。設置\管理員\桌面\DB2。MDB”
Str3？=?“噴氣式飛機？OLEDB:數據庫？密碼= "
控制室。打開嗎？Str1？& amp？Str2？& amp？Str3
strSQL？=?“選擇？*?從哪裏？表1？”
rs。開放？strSQL，？康恩？3,?三
TEM？=?rs。記錄計數
rs。關閉
為了什麽？我？=?1?去哪？透射電鏡
strSQL？=?“選擇？*?從哪裏？表1？在哪裏？編號= "？& amp？我？& amp？""
rs。開放？strSQL，？康恩？3,?三
雷迪姆？保存？A(0？去哪？我)
甲(我)？=?rs！名字
rs。關閉
下壹個？我
關閉控制室
結束？潛水艇
私人？Sub？定時器1 _定時器()
靜電？j？作為？整數
Text1。文字？=?阿(J)
j？=?j？+?1
如果？j？=?UBound(A)？然後
j？=?1
結束？如果
結束？潛水艇
代碼並運行，現在您在桌面上設置了壹個名為db2的數據庫，壹個字段“name”。