I have write this code :


Dim strSqlValid
Dim objConn1 As ADODB.Connectio n
Dim objRS1 As ADODB.Recordset
Dim objRS2 As ADODB.Recordset
Dim objRSItem As ADODB.Recordset
Dim formula As String
Dim Appl As New CRAXDRT.Applica tion
Dim rptReport As New CRAXDRT.Report
Dim sReportName As String
Dim gstrDatabaseNam e As String
Dim gstrUserName As String
Dim...