Private Function CheckNeedSendMail() As Integer
        Dim startFilterDate As DateTime
        Dim endFilterDate As DateTime
        endFilterDate = CType(Dts.Variables("StgEndDate").Value, DateTime)
        startFilterDate = endFilterDate.AddHours(-25)
        Dim strStart As String = startFilterDate.ToString()
        Dim strEnd As String = endFilterDate.ToString()
     

        Dim sqlConnStr As String = "Data Source=" & RdVarStr("DB_Server_Name") & ";Initial Catalog=" & RdVarStr("DB_Init_Cat") & ";Integrated Security=True;"
        
Dim rowCounter As Integer
        Using sqlConn As New Data.SqlClient.SqlConnection(sqlConnStr)
            sqlConn.Open()
            Using sqlCmd As New Data.SqlClient.SqlCommand("SELECT Count(*) from RPT_TACS_ACCESS_DTL where EXIT_DT >= " & startFilterDate & " and EXIT_DT <= " & endFilterDate & " and WORKED_HRS >= (select VALUE from TERMACCESS_CONFIG where MODULE = 'SSIS TACSReport' and [KEY]= 'Var_WorkHrs_Limit') +':00'", sqlConn)
                Dim sqlDtReader As Data.SqlClient.SqlDataReader
                sqlDtReader = sqlCmd.ExecuteReader()
                While sqlDtReader.Read()
                    rowCounter = sqlDtReader.GetInt32(0)
                End While
                sqlDtReader.Close()
            End Using
        End Using
        Return rowCounter

    End Function

SELECT CAST(COUNT(*) AS varchar(6)) + ':00'
...

MsgBox("SELECT Count(*) from RPT_TACS_ACCESS_DTL where EXIT_DT >= " & startFilterDate & " and EXIT_DT <= " & endFilterDate & " and WORKED_HRS >= (select VALUE from TERMACCESS_CONFIG where MODULE = 'SSIS TACSReport' and [KEY]= 'Var_WorkHrs_Limit') +':00'")

where EXIT_DT >= " & startFilterDate & " and

where EXIT_DT >= ' " & startFilterDate & " ' and