Attribute VB_Name = "conn"
Public cn As New ADODB.Connection '連接
Public rs As New ADODB.Recordset '記錄集
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 & "\hhdq.dll;Jet OLEDB:Database Password=xhhdqpf;Persist Security Info=False;"
End Sub
'關閉數據庫連接
Public Sub CloseConn()
    'rs.Close
    'Set rs = Nothing
    
End Sub