关于ComboBox显示的一个小问题

Question

我连接的是Access数据库~
这个ComboBox（图书类型）是显示的图书的类型~
Private Sub cmbCatCode_Click()       
    If DataBase("Cate") = True Then
        DBRec.MoveFirst
        DBRec.EOF = False
            DBRec.EOF("分类名称") = cmbCatCode.Text
            DBRec.MoveNext
        DBRec.Close
        DataConn.Close
    End If
End Sub
但是每次一运行会成功~但是第二次打开以后~那个图书的分类名称都会变成一样的~我的想法是那个图书类型ComboBox  每次只是调用Access表中的图书类型~也只是显示~并不是要改动它~高手帮忙~谢谢了~

Answer 1

直接在 form_load事件里插入即可do while not DBRec.eof()
    Combo1.additem cstr(DBRec.EOF("分类名称"))
   DBRec.movenext
loop

Answer 2

运行后显示错误的参数号或无效的属性值~.EOF这里出错了~

Answer 3

form_load事件之前是这个 If DataBase("Cate") = True Then
        cmbCatCode.Clear
        DBRec.MoveFirst
        
        Do While DBRec.EOF = False
           cmbCatCode.AddItem DBRec.Fields("分类名称")
           DBRec.MoveNext
        Loop
        DBRec.Close
        DataConn.Close
    End If