显示ODBC 调用是失败解决方法

显示ODBC 调用是失败
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


[解决办法]
DB是什么？
sql不对