请问！我的这个sql语句有什么问题。

运行时提示 “实时错误：3061 参数不足，期待是”
代码如下：
Private Sub zhcmdcx_Click()
    Dim sql As String
    Dim czf As String
    Dim fz As String
    Dim tj As String
    Select Case zhcmbfz.Text
        Case "镇"
            fz = "zhen"
        Case "村"
            fz = "cun"
        Case "分干"
            fz = "fengan"
        Case "支干"
            fz = "zhigan"
        Case "斗"
            fz = "dou"
        Case Else
            fz = "zhigan"
    End Select
    Select Case zhcmbczf.Text
        Case "等于"
            czf = "="
        Case "大于"
            czf = ">"
        Case "小于"
            czf = "<"
        Case "不等于"
            czf = "<>"
        Case Else
            czf = "="
    End Select
    tj = zhtxttj.Text
    'sql = "select " & fz & " from tblmain " & "where 1=1"
    sql = "SELECT " & fz & ", niandu, COUNT(" & fz & ")" & " AS zhs, SUM(mianji) AS mjhj, SUM(erjitishuimianji) AS ejmjhj, SUM(yinghsou) AS yshj, SUM(yishou) AS yhj, SUM(weiqian) AS wqhj" & " FROM tblmain " & "WHERE " & "[" & fz & "]" & czf & "'" & tj & "'" & " GROUP BY " & fz & " ,niandu"
    Label2.Caption = sql
    Set zhrs = db.OpenRecordset(sql, dbOpenDynaset)
    'If zhcmbfz.Text = "支干" And zhcmbczf = "等于" Then
        'Set zhrs = db.OpenRecordset("select zhigan, sum(mianji) as mjhj, sum(yingshou) as yshj from tblmain where [zhigan] = '" & zhtxttj.Text & "' group by zhigan")
    'End If
End Sub