VB 保存数据到数据库

从“工程”菜单“引用” microsoft data object 2.8 LIbriry 然后写代码： dim MyCon as new adodb.connection '定义一个数据库连接对象 dim rst as new adodb.recordset '定义一个记录集对象 mycon.connectionstring= "provider= microsoft.jet.oledb.4.0;data source=" & App.Path & "/Access1.mdb" '连接数据库 Access1.mdb *注意 Access1.mdb数据必须保存在当前工程的目录下 mycon.open '打开数据连接 SQL=“select * from 名” '查询一个表记录 rst.Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集 rst.AddNew ' 添加一个新记录 ' 假如 当前记录表里有有三个字段 以下操作时text内容保存到access中 rst.fields(0)=text1.text 'text1的内同保存到 第一个字段中 rst.fields(1)=text2.text rst.fields(3)=text3.text rst.update '更新记录！