VB6.0 数据库编程 BOF、EOF不起作用是为什么？ - VB6论坛

已结贴√ 问题点数：20 回复次数：0

VB6.0 数据库编程 BOF、EOF不起作用是为什么？

Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jsyxxgl.mdb"
    rs.Open "select * from Main_User", conn, 2, 2

程序代码：

Private Sub Command3_Click()
    If rs.EOF Then
        MsgBox "已到末记录", 48, "记录浏览"
    Else
        rs.MoveNext
        Call display
    End If
End Sub

这个程序我是按照教程写的，问题就是会超出下边，出现3021实时错误，本人是新手，希望能有大神能解答这个问题，感激不尽~~~

搜索更多相关主题的帖子: 数据库　