求助，符号传递问题

Question

Public Function dbfIsseNoList( _
  Optional Sta As String _
  ) As VariantSQL$ = SQL$ & "where STA <= '" & Sta & "'"立即窗口中显示  where sta <= '5'
以上正常运行
现在需要将“<=”也放到参数中Public Function dbfIsseNoList( _
  Optional Smybol As Variant,Optional Sta As String _
  ) As VariantSQL$ = SQL$ & "where STA'"& Smybol & Sta & "'"立即窗口中显示  where sta  '<=5'
（运行报错）
如何让下面立即窗口显示如上面的一样

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

strsql = " select * from table1 where 1= 1 "strsql = strsql & " and sta " & smybol & "" & sta & ""需要单引号就自己往里补，我看你的代码，sta像是不需要引号的。