大家都来看看啊！

Question

Private Sub Form_Load()
   
 Dim rst As ADODB.Recordset
 Dim strSql As String
   strSql = "seclect 名称 from 主食"  //从 主食 表中选出 名称 这一列
   Set rst = Query(strSql)
End Sub
我想把选出来的记录集放到一个LIST控件中，请问代码如何写，急急！

Answer 1

Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetSet cn = New ADODB.Connection 
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabase.mdb"
Set rs = cn.Execute("seclect 名称 from 主食")Do Utinl rs.EOF
    List1.AddItem rs!名称
    rs.MoveNext
LoopSet rs = Nothing
cn.Close
Set cn = Nothing

Answer 2

select 名称 from 主食

Answer 3

如果我用同样的方法把它放到COMBO控件中，然后我想用查询出来的结果作为一个索引，从表中选择符合条件的记录显示在LIST控件中，我该怎么做呢？
会做的帮我啊！
十分感谢！