Public Sub generateReport(ByVal vSqlstring As String)
Dim rstTemp As New ADODB.Recordset
On Error GoTo errSub
Me.MousePointer = vbHourglass
With rstTemp
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
DoEvents
.Open vSqlstring, cn(1), 3, 3
If .RecordCount > 0 Then
End If
frmDispReport.lblRecordTotal.Caption = "Total number of records : " & .RecordCount
End With
Set frmDispReport.dtgReport.DataSource = rstTemp
Set rstTemp = Nothing
Me.MousePointer = vbDefault
Exit Sub
errSub:
MsgBox Err.Description & " generatereport"
ErrorHandler Err.Number, Err.Description, "generatereport-inventory transactions"
Resume Next
End Sub