'access'首先引用Microsoft Activex Data Objects 2.x Library
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
1.sql="insert into table(字段1,字段2,...) values('sssdd','dfs',...)"
2.sql="select * from table where 条件"
3.sql="update table set 字段='新的值' where 条件"'更新
sql="delete from table where 字段='ddd'"
objrs.Open sql,objcon, 3, 1