Question

vb 用代码连access并把combo1.text的内容保存到access表字符中

Answer 1

添加一个 ADODC1控件和一个 DATAGIRD控件

点击ADODC1的 自定义 。连接你的 ACCESS数据库。
点击ADODC1的 数据源 。填写你的 初始化SELECT 语句（本语句无作用。只做 初始化）

点击DATAGIRD的DATSOURCE。设置为 ADODC1

运行调试。你 可以 发现 你的表已经在DATAGIRD1里了
然后 。从左往右分别是
ADODC1.RECOURDSET.FIELD(0)
ADODC1.RECOURDSET.FIELD(1)
ADODC1.RECOURDSET.FIELD(2)
找到你的 那个 字段 。
用ADODC1.RECOURDSET.FIELD(X) =COMBO1.TEXT

就可以看到值肤质过去了 。
然后ADODC1.RECOURDSET.UPDATA更新一下。

完成

Answer 2

dim cn as adodb.connection
dim tsql as string
set cn=new adodb.connection
cn.open "dirver={microsoft access driver (*.mdb)};uid=Admin;pwd=;dbq=" & "数据库的路径"
tsql="insert into tablename(fieldname) values('"+combo1.text+"')"
cn.execute tsql
set cn=nothing