未找打方法或数据成员？

Question

    datalink = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.90\SFCS\data.mdb;Jet OLEDB:Database password=27362003"
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open datalink
    Set AdoData = New Recordset
    
    AdoData.Open "Select * From Index", db, adOpenStatic, adLockOptimistic
    Do While Not AdoData.EOF
        DataCombo1.AddItem AdoData.Fields("Index1")
        AdoData.Recordset.MoveNext
    AdoData.Close代码如上，编译的时候说编译错误，未找到方法或数据成员，怎么回事？另外，在写代码的时候，DataCombo1.的时候，输入A，不见AddItem出现？是哪里出了问题？

Answer 1

在写代码的时候，DataCombo1.的时候，输入A，不见AddItem出现？是哪里出了问题？
=================================================================
VB菜单:工具|选项|自动列出成员  ，勾选即可

Answer 2

'Index是系统关系字，用方括号括起来
AdoData.Open "Select * From [Index]", db, adOpenStatic, adLockOptimistic

Answer 3

改动过了，但是编译的时候说编译错误，未找到方法或数据成员。点调试的时候，还是选中的.additem
另外，在写代码的时候，DataCombo1.的时候，输入A，还是不见AddItem出现，VB菜单:工具|选项|自动列出成员 ，勾已经存在

Answer 4

看这代码写的，
变量没有定义
Do While 没有loop结束循环就close

Answer 5

额，是漏掉了Loop。什么变量没有定义？我是新手，能说明白一点吗？

Answer 6

DataCombo1控件删除重新添加一下试试

Answer 7

最简单的，我建立了一个form
添加了部件（工程-部件-Microsoft DataList Controls 6.0 (OLEDB)）
然后输入代码如下：Private Sub Form_Load()
    DataCombo1.AddItem "123"
    DataCombo1.AddItem "123"
    DataCombo1.AddItem "123"
End Sub结果还是说编译错误，未找到方法或数据成员，在写代码的时候，DataCombo1.的时候，输入A，不见AddItem出现，以a开头的只有appearance

Answer 8

DataCombo没有AddItem 方法 只能使用绑定数据库记录的方法来添加项目
如果想添加非数据库内容项目 应该在查询中UNION SELECT "项目"

Answer 9

用 ComboBox 替代你的 DataCombo，如果不需要通过它来自动选中记录的话。