vb6.0 怎样将 access 表中前两列 输入listview呀

vb6.0 怎样将 access 表中前两列 输入listview呀

Dim r As New ADODB.Recordset
Dim itmx As ListItem
If Trim(txtIDD) = "" Then
Exit Sub
End If
r.Open "select * from rs_Files where reidd=" & Trim(txtIDD), cn
ListView1.ListItems.Clear
Do While Not r.EOF
Set itmx = ListView1.ListItems.Add
itmx.Text = Trim(r!idd & " ")
itmx.SubItems(1) = Trim(r!文件名 & " ")
itmx.SubItems(2) = Trim(r!说明 & " ")
r.MoveNext
Loop
r.Close

'****************************** '此为adodc部件的connectstring属性值，可以通过窗体一步一步设置，会自动生成，当然直接复进去也可以。test.mdb为数据库文件，最好不要为空，不然都看不到连接成功与否。 '添加用addnew方法，查询用sql语句：select [字段名1]，[字段名2]，...,[字段名n] from [表名] where 条件[如 id >23 ,或 id between 2 and 30] '删除用delete方法,修改用update方法. 'provider=microsoft.jet.oledb.4.0;data source=app.path & "\test.mdb";mode=share deny none;persist security info=false ' '***************************************** option explicit dim cat as new adox.catalog dim tbl as new adox.table private sub form_load() adodc1.recordsource = "select 日期 id from mytable order by id desc" datagrid1.refresh end sub