求助，符号传递问题

Public Function dbfIsseNoList( _
  Optional Sta As String _
  ) As Variant

SQL$ = SQL$ & "where STA <= '" & Sta & "'"

立即窗口中显示 where sta <= '5'
以上正常运行
现在需要将“<=”也放到参数中

Public Function dbfIsseNoList( _
  Optional Smybol As Variant,Optional Sta As String _
  ) As Variant

SQL$ = SQL$ & "where STA'"& Smybol & Sta & "'"

立即窗口中显示 where sta '<=5'
（运行报错）
如何让下面立即窗口显示如上面的一样

SQL$ = SQL$ & "where STA"& Smybol &＂＇＂ & Sta & "'"

SQL$ = SQL$ & "where STA"& Smybol &"'" & Sta & "'"

SQL$ = SQL$ & "where STA　"　& Smybol &　"'" & Sta & "'"

VB code

strsql = " select * from table1 where 1= 1 "

strsql = strsql & " and sta " & smybol & "" & sta & ""

需要单引号就自己往里补，我看你的代码，sta像是不需要引号的。