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

不会用到太多的代码，你只要做个界面让他跟数据库中的数据关联就可以了不要想得太复杂