VB连接ACCESS数据库的代码应该写在哪里啊？

Question

各位，VB连接ACCESS数据库的代码应该写在哪里啊？我是菜鸟

Answer 1

Public Function OpenAccessConn()
Dim AssSql As String
On Error GoTo errOpenBDConnection:
        AssSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        txtMdbPath & ";Persist Security Info=False"
        assConn.ConnectionString = AssSql
        assConn.Open
        Exit Function
errOpenBDConnection:
        MsgBox ("Access Database Connection failed!" & vbCrLf & Err.Number & Err.Number & _
        vbCrLf & Err.Description), vbCritical, " EnterpriseIQ System"
        Exit Function
End Function

Answer 2

可以添加一个公共模块，“工程”-“添加模块”
然后在里面写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.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\？？？.mdb;Persist Security Info=False"     
    cn.Open
    rs.ActiveConnection = cn
    rs.CursorLocation = adUseClient
End SubPublic Sub CloseConn()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub要用的时候就 call OpenConn() 不用就关掉 CloseConn()

Answer 3

rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
这两个是什么？

Answer 4

http://download.csdn.net/source/1498324

Answer 5

可以把数据库的连接放在load里面啊

Answer 6

Private Sub Form_Load()
    datalink = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=\SFCS\data.mdb;"……
……
End Sub