Question

VB Combo1.addItem 出错

想把数据库中的数据一一添加到Combo1中，但是运行时提示“实时错误，未找到方法或数据成员”。
用ADO方式连接数据库，该引用的已经引用了。Form_load中的代码如下：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" + App.Path + "\data.mdb"
conn.Open (strConn)
conn.CursorLocation = adUseClient
SQL = "select * from gys"
rs.Open SQL, conn, 1, 1
Do Until rs.EOF
Combo1.AddItem rs.Fields("name"), rs.Fields("id")
rs.MoveNext
Loop
请高手看看是哪里不对？！

Answer 1

Combo1.AddItem rs.Fields("name"), rs.Fields("id")
就是这行错误。组合框一次只能加一个项目，你这里要同时加姓名和性别两个，所以就错了。修改下就可以了。
Combo1.AddItem rs.Fields("name")& rs.Fields("id")
这样，后面的两个内容就成一个了。

Answer 2

可能是字段名错误。

Answer 3

Combo1.AddItem rs.Fields("name"), rs.Fields("id")

能这样写吗？？？