如何在from前面使用控件内字符串进行查询？？
下面语句错误在哪？？
请高手指点!!!
Private Sub List1_Click()
Dim ix As String
Dim iz As String
Call conn
ix = "select distinct '" & List1.Text & "' from 查询"
rs.Open ix, GG
List2.Clear
While rs.EOF = False '在列表中输出
iz = rs.Fields(0).Value
List2.AddItem (iz)
rs.MoveNext
Wend
rs.Close
End Sub

Private Sub List1_Click()
Dim ix As String
Dim iz As String
dim rs as new adodb.recordset
ix = "select * from 表 where 字段名="& list1.text &""
rs.cursorLocation=adUseClient
rs.Open str, conn, adOpenKeyset, adLockReadOnly
List2.Clear
While not rs.eof '在列表中输出
iz = trim(rs.Fields(0).Value)
List2.AddItem (iz)
rs.MoveNext
Wend
rs.Close
End Sub