Dim mm As Object Dim obj As New prjMultiPath.clsMultiPath Dim con As New ADODB.Connection 'Dim rs As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Dim str_Renamed As String Dim del As String On Error GoTo Err_Renamed con.Open(obj.Connect(csid)) con.BeginTrans() con.Execute("delete from gen_form16_report ") str_Renamed = "select TC_Empid,TC_Seqno from Gen_TaxComputationHdr where TC_Empid between '" & empfr & "' and '" & empto & "' and TC_datefrom='" & VB6.Format(datefr, "mm/dd/yyyy") & "'" rs2.Open(str_Renamed, con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)