免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

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 ’將數(shù)據(jù)庫操作放入Recordset
cn.Execute strSQL '執(zhí)行操作

Cn.close
set cn= nothing
oRs.close
set oRs=Nothing

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
end sub