RunTime Error 424 : Object Required (1 Viewer)

Private Sub btnSubmitInputVendorPerformanceForm_Click() 'Button Is part of frmInputVendorPerformance

Dim ValueCheck As Integer 'Increments to make sure no errors in entry
Dim ErrorShow As String
Dim YesorNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String
Dim DeliveryRate As String
Dim FailedBounced As String
Dim FailRate As String
Dim OpenRate As String
Dim ClickRate As String
Dim NoResponse As String
Dim NoResponseRate As String
Dim DropOutRate As String
Dim PureIncidenceRate As String
Dim PureTerminateRate As String
Dim CommunityDuplicateRate As String
Dim suspiciousRate As String
Dim OtherBackEndScreenoutRate As String
Dim FinalIncidenceRate As String
Dim NotInvitedButQualified As String
Dim ConversionRate As String
Dim CostPerLogin As String
Dim CostPerResponse As String
Dim CostPerInvited As String
Dim TargetingPerformanceCostPerMember As String
Dim additionalCostPerMember As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sqry As String
Dim CurrentVersion As String

 ValueCheck = 0 'Sets value-check to default no-error value
ErrorShow = ""

If lstSelectProject.Value = "" Then
    MsgBox "Please select a project.", vbCritical
    Exit Sub
End If

'handling for exception: validation costs only 
Dim rs_ex As ADODB.Recordset
Set rs_ex = New ADODB.Recordset
sqry = "SELECT Type FROM tblVendors WHERE VendorID = " & inputAddVendorPerformanceVendor.Value & ";"
rs_ex.Open sqry, CurrentProject.Connection, adOpenStatic
If rs_ex!Type = "Validation" Then
    If IsNumeric(inputTotalProjectCost.Value) = False Or IsNull(inputTotalProjectCost.Value) Or inputTotalProjectCost.Value < 0 Then  'If number is not valid...
      
       ValueCheck = ValueCheck + 1
        ErrorShow = ErrorShow + "Total Project Cost" + vbNewLine
    End If

    If IsNumeric(inputFixedProjectCost.Value) = False Or IsNull(inputFixedProjectCost.Value) Or inputFixedProjectCost.Value < 0 Then  'If number is not valid...
      ValueCheck = ValueCheck + 1
        ErrorShow = ErrorShow + "Fixed Project Cost" + vbNewLine
    End If
    
    If ValueCheck = 0 Then
    
' ERROR KICKED BELOW
   
  [B]      sqry = _
            "INSERT INTO tblVendorPerformance (ProjectRefNum, VendorID, TotalProjectCost, FixedProjectCost, Notes) " & _
            "VALUES ('" & inputAddVendorPerformanceProject.Value & "', " & inputAddVendorPerformanceVendor & ", " & _
                inputTotalProjectCost.Value & ", " & inputFixedProjectCost.Value & ", '" & inputNotes.Value & " ');"[/B]

        DoCmd.SetWarnings False
        DoCmd.RunSQL sqry
        DoCmd.SetWarnings True