vb 一个问题 - VB / 基础类

Option Explicit

 Public conn As New ADODB.Connection
 Public Rs As New ADODB.Recordset
'Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关

Public Sub connect()

'连接数据库的代码段
 Set conn = New ADODB.Connection
 Set Rs = New ADODB.Recordset
 
 conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读）
 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\renshi.mdb;Persist Security Info=False"
 conn.Open
'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨
 Debug.Print Rs.State

End Sub

Rs.State 总是0 唉。 老连接不成功。。。

---

总是为0 啊。。。郁闷 代码我也看了下 感觉没啥错误

---

在 工程-部件-设计 添加数据库的部件。

---

可以了 也没改什么东西 唉

---

分给你了