显示ODBC 调用是失败

Question

Public Function InputOK() As Boolean
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
InputOK = False
    Dim st As Recordset
    Set st = DB.OpenRecordset("Checkmpfmonth '" & Format(mskMPFMonth, " yyyy-mm-01") & "'", 4, 64)
    If Not st.EOF And optType(0) Then
        MsgBox GL("dsadfasdf")
        st.Close
        Exit Function
    End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        
        If DBMode = "A" Then
            If IsDate(mskMPFMonth) = False Then
                MsgBox GL("@DSL353"), vbExclamation, GL("@DSL353")
                mskMPFMonth.SetFocus
                Exit Function
            End If            Set rs = DB.OpenRecordset("CheckSalaryPayDate '" & Format(cmbPayDate, gSaveDateFormat) & "'", 4, 64)
            If Not rs.EOF Then
                MsgBox GL("@DSL10243"), vbExclamation, GL("@DSL10238")
                cmbPayDate.SetFocus
                Exit Function
            End If
            rs.Close
        End If
Call cmbPayDate_Change
        InputOK = True
End Function
'''''''''''''''''''''''''''''显示ODBC 调用是失败  
是不是不可以同时用两个 openrecordset