vb ado控件查询问题

Adodc2.RecordSource = "select * from 毕业证信息表 where 姓名 in('" & List1.List(List1.ListIndex) & "')"
这句代码怎么错了啊 我想实现查询名字在listbox内的所有人员信息

---

VB code:

Dim i As Integer
Dim strNames As String

strNames = ""

For i = 1 To List1.ListCount
strNames = ",'" & List1.Text & "'"
Next i
strNames = Right(strNames, Len(strNames) - 1)
If Len(strNames) = 0 Then
Exit Sub
End If

Adodc2.RecordSource = "select * from 毕业证信息表 where 姓名 in(" & strNames & ")"

---

in()括号内的各元素要用逗号隔开

---

VB code:
Private Sub Command1_Click()
Dim i As Long, strTmp As String

For i = 0 To List1.ListCount-1
strTmp = IIf(strTmp = "", "'" & List1.List(i) & "'", strTmp & ",'" & List1.List(i) & "'")
Next i

Adodc2.RecordSource = "select * from 毕业证信息表 where 姓名 in(" & strTmp & ")"
End Sub