为什么报无效的标识符

Question

Private Sub Command_click() Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim strdb,cardno As String cardno=text.text
cn.Open "Provider=MSDAORA.1;Password=ic6279admin;User ID=ICADMIN;Data Source=ORAISSUE;Persist Security Info=True" 
strdb = "select * from mytable where substr(cardcd,5,12)=cardno" rs.Open strdb, cn, adOpenForwardOnly, adLockReadOnly, adCmdText 
Set datagrid.DataSource = rs 
rs.Close 
cn.Close 
End Sub 
程序执行到rs.open这句时，报无效的标识符cardno

Answer 1

strdb = "select * from mytable where substr(cardcd,5,12)=" & cardno
debug.print strdb

Answer 2

Private Sub Command_click() Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim strdb,cardno As String cardno=text.text 
cn.Open "Provider=MSDAORA.1;Password=ic6279admin;User ID=ICADMIN;Data Source=ORAISSUE;Persist Security Info=True" 
   strdb = "select * from mytable where substr(cardcd,5,12)='cardno' "    rs.Open strdb, cn, adOpenForwardOnly, adLockReadOnly, adCmdText 
   Set datagrid.DataSource = rs 
   rs.Close 
cn.Close 
End Sub 

Answer 3

strdb = "select * from mytable where substr(cardcd,5,12)='" & cardno & "'"