一个关于数据库的问题，在线等待，给我正确的代码者给满分！！！

Question

我现在有一个COMBO名字：COMBO1，内容依次是北京，上海，广州。
有一个名字为DB1.MDB的ACCESS数据库
两个文本框TEXT1,TEXT2，TEXT3
按钮一个COMMAND1要实现以下功能：1。当COMBO1中的内容为“北京”时，则在DB1中TEXT3.TEXTZ表中插入一条记录结构为：
城市        人口      车辆数
北京     TEXT1.TEXT  TEXT2.TEXT2。然后各个城市同北京，但要时再想再COMBO1中选择修改北京的数据，则再TEXT1,TEXT2中会显示前一次录入的数据，
客户在TEXT1,TEXT2再次输入数据后，安下COMMAND1，则会弹出对话框提示北京的数据已录入，若要修改请确认，客户确认后方可修改，若取消则还原3。当客户第一次安下COMMAND1时，建立新的名为TEXT3.TEXT的表

Answer 1

请给出调试过的COMMAND1的 原代码，正确者给100分！另有追加的加分！！！

Answer 2

东西挺简单的，要敲代码太长了，我手头上有一个程序，给出你的信箱，或者发信到[email protected]，我不常在线！

Answer 3

dim cn as new adodb.connection
dim rk(0 to 2) as string
dim cl(0 to 2) as stringprivate sub form1_load()
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB1.mdb;Persist Security Info=False"
combo1.clear
combo1.additem "北京"
combo1.additem "上海"
combo1.additem "广州"
combo1.listindex = 0
end subprivate sub command1_click()
text1=trim(text1)
text2=trim(text2)
if text1="" or text2="" then exit sub
'对话框
if msgbox(combo1.text & "的数据已录入，若要修改请确认", vbokcancel+vbinformation) = vbcancel then exit sub'建立表，如果已经存在则跳过
dim recs as long
on error resume next
cn.execute "create table text3 (city text(10), population text(10), vehicles text(10))", recs, adexecutenorecords
on error goto 0'插入记录
cn.execute "insert into text3 (city, population, vehicles) values ('" & combo1.text & "', '" & text1 & "', '" & text2 & "')",recs,adexecutenorecords'记录text当前值
rk(combo1.listindex)=text1
cl(combo1.listindex)=text2
end subprivate combo11_click()
'返回上一次数据
text1=rs(combo1.listindex)
text2=cl(combo1.listindex)
end sub