code

[Juan Euclides Reyes Carrasco]

Set DataEnvCK = Nothing
DataEnvCK.Connection1.CursorLocation = adUseClient
DataEnvCK.Connection1.ConnectionString = "Provider=Advantage.OLEDB.1;User
ID=AdsSys;Password=a2121998m220;Data Source=" & path &
"\IMMSAGENDA\IMMSDDF.ADD;Initial Catalog=MWDDF.add;Mode=ReadWrite;Advantage
Character Data Type=ADS_ANSI;Advantage Filter
Options=IGNORE_WHEN_COUNTING;Advantage Locking
Mode=ADS_PROPRIETARY_LOCKING;Advantage Security
Mode=ADS_CHECKRIGHTS;Advantage Server Type=ADS_REMOTE_SERVER;Increment User
Count=FALSE;Show Deleted Records in DBF Tables with Advantage=FALSE;Stored
Procedure Connection=FALSE;Advantage Table Type=ADS_ADT;Trim Trailing
Spaces=TRUE;Use NULL values in DBF Tables with Advantage=FALSE"
msg = MsgBox(ruta & "," & 1)
DataEnvCK.Connection1.Open
'SQL
DataEnvCK.Commands(1).CommandText = sqlfinal
'SQL
DataReportCK.Sections(4).Controls("Text8").DataField = "NAMES"
DataReportCK.Sections(4).Controls("Text7").DataField = "Estado"
DataReportCK.Sections(1).Controls("Label17").Caption = "From: " &
Format(finicial, "mm/dd/yyyy") & " To: " & Format(ffinal, "mm/dd/yyyy")
DataReportCK.Sections(1).Controls("Label18").Caption = ruta
DataEnvCK.rsCommand1_Grouping.Requery
DataReportCK.Refresh
DataReportCK.Show vbModal, Me
If DataEnvCK.rsCommand1_Grouping.State <> 0 Then
DataEnvCK.rsCommand1_Grouping.Close
If DataEnvCK.Connection1.State <> 0 Then DataEnvCK.Connection1.Close

[Juan Euclides Reyes Carrasco]