ACCESS2003 和VB 连的是时候 知道为什么连不上吗》

来源：百度知道 编辑：UC知道 时间：2024/05/25 12:41:54

'工程－引用 Microsoft ActiveX Data Object2.8

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

Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\aa.mdb"

rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "select * from table1", cn
Set DataGrid1.DataSource = rs
End Sub

什么

给你一个我的代码自已改吧
Public DB_Conn As New ADODB.Connection
Private Sub DB_Initial()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data\data.mdb"
'On Error Resume Next
DB_Conn.Open strConn, "admin"
If Err Then
MsgBox "数据库连接错误，请检查文件！"
End
End If
End Sub

'获取一个记录集对象
Public Function Record(strRstT