VB connecting access database customization

Hello everyone , I meet you again , I'm your friend, Quan Jun .

Public cn As New ADODB.Connection Public rs As New ADODB.Recordset

‘ open data Library connection Public Sub OpenConn() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “/data/XXX.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;” End Sub ‘ Close database connection Public Sub CloseConn() rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub

Publisher ： Full stack programmer stack length , Reprint please indicate the source ：https://javaforall.cn/126557.html Link to the original text ：https://javaforall.cn