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

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

[解决办法]
可以添加一个公共模块，“工程”-“添加模块”
然后在里面写

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 Sub

Public Sub CloseConn()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

要用的时候就 call OpenConn() 不用就关掉 CloseConn()
[解决办法]

引用:

可以添加一个公共模块，“工程”-“添加模块”
然后在里面写

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……

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

[解决办法]
http://download.csdn.net/source/1498324
[解决办法]
可以把数据库的连接放在load里面啊
[解决办法]
Private Sub Form_Load()
datalink = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=\SFCS\data.mdb;"

……
……
End Sub