VB中listbox有关问题

VB中listbox问题
在listbox中有3个名字：
张三
李四
王五
其中张三的ItemData是1，李四是2，王五是3，他们在数据库中的id也是对应的1，2，3，我的意思就是点击listbox中的张三，就能从数据库中根据id=1把其他信息搜出来，以下我做了一段程序，系统报错是参数不可选
Private Sub List1_Click()

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "gp.dll;Persist Security Info=False;Jet OLEDB:Database Password="

strSQL = "SELECT nr,time FROM falv where id = " & List1.ItemData & " "

rs.Open strSQL, conn, 3, 3

 Form2.RichTextBox1.Text = rs!nr & ""
rs.Close
conn.Close

Form2.Show 0.1

End Sub
请问一下该怎么弄，谢谢了

[解决办法]
ItemData 是数组，要取对应的成员才行

VB code

strSQL = "SELECT nr,time FROM falv where id = " & List1.ItemData(List1.ListIndex)