如何将在ACCESS数据库中查询到的文件显示到filelistbox中

Question

我制作了一个图纸数据库，表中有图纸名称，图纸路径等字段，已经在VB中将数据库打开，但不知道如何将查询到的文件显示到FILELISTBOX中，且点击能打开相应目录下的文件

Answer 1

就是用模糊查询查到一些记录，但不知道如何用filelistbox显示这些记录对应的文件
我目前的代码如下：
Dim conn As ADODB.Connection
Dim mrc As ADODB.Recordset
Dim mrc1 As ADODB.Recordset
Private Sub File1_Click()
Dim filepath As String
filepath = File1.Path & "\" & File1.FileName
'Call ShellExecute(Form1.hwnd, "Open", "Mailto:[email protected]?subject=help me!&body=Thank you!", "", App.Path, 1)
ShellExecute FormMain.hwnd, "open", filepath, "", filepath, 1
End SubPrivate Sub Command1_Click()
Set conn = New ADODB.Connection
Set mrc = New ADODB.Recordset
Set mrc1 = New ADODB.Recordset
Dim strConn As String
strConn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\" & "Picture.mdb"conn.Open strConn
mrc.Open "select * from pictureinfo where wh like '%" & Trim(Text1.Text) & "%'", conn, 1, 1
For i = 0 To mrc.RecordCount - 1mrc1.Open "select * from picturepath,pictureinfo where picturepath.nodeid=pictureinfo.parentnodeid", conn, 1, 1
File1.Path = CStr(DlgSys_txtpara_text(0)) + CStr(mrc1("nodepath"))
mrc1.Close
Next i
mrc.Close
End Sub