MDB vs VB

ребят, ХЕЛП плиз!

вот накодил тут:

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Connection Confirmation
Private Sub Form_Load()

On Error Resume Next
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=db1.mdb;"
cn.Open
Debug.Print "Connection Object Created"

' rs.Open "Select * from firm", cn, adOpenDynamic, adLockOptimistic
' Debug.Print "Recordset Object Created"

rs.Open "Select * from firm", cn, adOpenDynamic, adLockOptimistic
While Not rs.EOF
List1.AddItem rs("name")
rs.MoveNext
Wend
rs.Close
End Sub

Private Sub List1_click()

rs.Open "Select * from firm where name = List1.Text", cn, adOpenDynamic, adLockOptimistic
Text1.Text = List1.Text
Text2.Text = rs("id")

rs.Close
End Sub


тоесть он не понимает что я иму пихаю переменную List1.Text, а не текст.
схема типа '"&[List1.Text]&"' тоже не катит

вопрос: каких знаков нехватает??? (в кавычки пробовал, с + как на JS пробовал, результат один: EOF или BOF =TRUE... )