为什么DO WHILE NOT RS.EOF成了死循环

maq2000 maq2000 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Private Sub Form_Load()
Dim strsql, strdsn As String
Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
strsql = "select * from cd_table"
strdsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
conn.Open strdsn
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 3
Do While Not rs.BOF
rs.MoveFirst
Loop
Do While Not rs.EOF
rs.MoveNext
Loop
End Sub
怎么这样成了死循环啊??
...全文

相关推荐

评论 19
收藏 已收藏
分享
返回顶部