VB如何往ACCESS的表中写入数据？

最好采用ADO方法，通用性强、效率高
首先在工程中引用Microsoft AXXXX Data Objects 2.6 Library，然后配合SQL语句。 （AXXXX为控件的那一个，我写全称系统提示我的回答含有广告，不让发）

1、声明：
Private conn As ADODB.Connection （连接数据库的ADO的Connecet 对象）
Private Public strconn as string （连接字符串）
Dim strSQLcmd AS String （SQL命令字符串）

2、赋值
strconn= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + App.Path + "\XX.mdb; "
SQL语句分两种情况：
(1)、{更新数据，即替换原来的数据)}
strSQLcmd=strSqlCmd = "Update 表名 Set 字段名 =字段值& " Where 更新条件"
(2)、{插入新记录，字段列表和字段值列表要一一对应，并用逗号分隔}
strSqlCmd = "INSERT INTO 表名 (字段列表) Values 字段值列表"
3、执行SQL语句
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open strSqlCmd

本人回答有欠妥之处，请给予指正，共同学习共同进步……^-^!