急！！！！-->zhuyiwen转移

chuanzhang

Private Sub 命令2_Click()
On Error GoTo Err_命令2_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "性质考核查询"
   
    stLinkCriteria = "[月]=" & "'" & [组合7] & "'" And stLinkCriteria = "[性质]=" & "'" & [组合5] & "'"
        
    DoCmd.OpenForm stDocName, acFormDS
   
Exit_命令2_Click:
    Exit Sub

Err_命令2_Click:
    MsgBox Err.Description
    Resume Exit_命令2_Click
   
End Sub
   各位大哥，上面是我的一个用窗体查询的语句，不知道为什么不能执行，请多多执教，