Attribute VB_Name = "CONN"
'****************************************************************************
'天佑汶川、天佑四川、天佑甘肅、天佑中華、天佑善良的人！
'作者：大唐
'發布日期：2008/06/08
'描    述：一個簡單的vb6操作ACCESS數據庫實例
'網    站：http://www.zhiweikeji.cn/  (智威科技)
'OICQ    ：21792038
'天佑汶川、天佑四川、天佑甘肅、天佑中華、天佑善良的人！
'****************************************************************************


'聲明數據庫連接對象
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 & "\data\Test.mdb;Persist Security Info=False;"
End Sub


'關閉數據庫
Public Sub CloseConn()
If rs.State = True Then
    rs.Close
    Set rs = Nothing
End If
    cn.Close
    Set cn = Nothing
End Sub


'提示窗口
Public Sub msginfo(msg As String)
    MsgBox (msg & "成功！")
End Sub