Public Sub GenerateCreditorsListingRpt(ByVal strSupplierCdeFrom As String, _
ByVal strSupplierCdeTo As String, _
ByRef robjReport As CrystalReport, _
ByRef rfrmPreview As Form)
Dim objReportDB As New clsReportDB
Dim rstResult As New ADODB.Recordset
Dim rstResultDefaultAcct As New ADODB.Recordset
Dim strQuery As String