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.Recordsetconn.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.CloseForm2.Show 0.1End Sub
请问一下该怎么弄，谢谢了