求助高手帮忙 VB ADO RS.OPEN 不执行

Public Sub sms()
Dim no As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\cellsms.mdb" '开ACCSE
conn.CursorLocation = adUseClient
conn.Open constr
 rs.Open "select tel from sms where zm= '& text2.text & ' ", conn, 1, 3  '提手机号(无法自动查号码)
Do While Not rs.EOF '判断EOF标记属性（Endoffile）
Text3.Text = rs.Fields("tel")
rs.MoveNext '将游标指针移到下一条记录
Loop
MSComm1.Output = "AT+CMGS" + Chr$(61) + Chr$(34) & Text3.Text & Chr$(34) & vbCrLf
MSComm1.Output = "WARNING:HONGWAIGAOJIANG!"
MSComm1.Output = Chr$(26) + Chr$(90)
End SuB
这自己写的一个过程 (很菜大家见笑!)rs.Open "select tel from sms where zm= '& text2.text & ' ", conn, 1, 3  '提手机号(无法自动查号码) text2.text 这个值是从另一个FORM 中得到的,请大师指点