Private Sub Form_Load()
Dim cn as ADODB.Connectinon
Dim Rs AS ADODB.Recordset
Dim strSQL as string
Set cn=New ADODB.Connection
Set Rs=New ADODB.Recordset
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Nwind.mdb;Persist Security Info=False"
cn.Open '打开连接
strSQL="select * from table "
Rs.open setSQL,cn ’将数据库操作放入Recordset
cn.Execute strSQL '执行操作
内容：
Cn.close
set cn= nothing
oRs.close
set oRs=Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
end sub
