How do I resolve "Invalid procedure call or argument"

Public Sub ValidDeptSect(sDept As String, sSect As String, DataBase As XDatabase)
  Dim sSelect As String
  Dim rsRecords As Object
  Dim eSave As SaveError
On Error Resume Next
  Call DataBase.SelectSnapshot(rsRecords, sSelect)
  
  If Err.Number = DB_NOTFOUND Then
    sSelect = "select * from DEPT_SECT WHERE " & _
      "DEPT_NO = '" & sDept & "'"
      
    Call DataBase.SelectSnapshot(rsRecords, sSelect)
If Err.Number = DB_NOTFOUND Then
      On Error GoTo 0
      Err.Raise INV_DEPTSECT, "ValidDeptSect", "INV_DEPTSECT: DeptNo: " & sDept & " not found in DEPT_SECT table", App.HelpFile, ERRORSCONTEXTID
    ElseIf Err.Number = 0 Then
On Error GoTo 0
      Err.Raise INV_SECTDEPT, "ValidDeptSect", "INV_SECTDEPT: SectNo: " & sSect & " not found under DeptNo: " & sDept & " in DEPT_SECT table", App.HelpFile, ERRORSCONTEXTID
    End If
ElseIf Err.Number <> DB_NOTFOUND And Err.Number = 0 Then
      Call SaveTheError(eSave)
      On Error GoTo 0
      Err.Raise eSave.lNumber, eSave.sSource, eSave.sDesc, eSave.sHelpFile, ERRORSCONTEXTID
    End If
    
  
  If Err.Number <> 0 Then
    Call SaveTheError(eSave)
    On Error GoTo 0
    Err.Raise eSave.lNumber, eSave.sSource, eSave.sDesc, eSave.sHelpFile, ERRORSCONTEXTID
  End If
  
End Sub