Dim CN As ADODB.Connection
Dim CMD As ADODB.Command
Dim RS As ADODB.Recordset
Private Function Connect() As Boolean
Set CN = New ADODB.Connection
.CursorLocation = adUseClient
' this is going to open an access database in the program's directory named data.mdb... change it to the name and location of your database
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "DATA.mdb"
If CN.State <> adStateOpen Then
MsgBox "Uable to open the database. Uable to continue.", vbExclamation, "Login"
Connect = False
Connect = True
Private Sub PrintData()
Dim sSQL As String
Dim i As Long
Dim J As Long
On Error Resume Next
If NOT Connect() Then Exit Sub
sSQL = "SELECT bill_no, bill_date, bill_amt from billing WHERE bill_no BETWEEN " & txtBillStart.Text & " AND " & txtBillEnd.Text & " ORDER BY bill_no ASC"
Set CMD = New ADODB.Command
.CommandText = sSQL
.CommandType = adCmdText
.ActiveConnection = CN
Set RS = CMD.Execute
If CN.Errors.Count > 0 Then
If RS.State <> adStateOpen Then GoTo EXITRTN
If RS.EOF Or RS.BOF Then GoTo EXITRTN
While Not RS.EOF
Printer.Print RS("bill_no").Value & chr(9) & RS("bill_date").Value & chr(9) & RS("bill_amt").Value
Set CMD = Nothing
Set RS = Nothing
Open in new window
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $62.50.
Premium members get this course for $148.75.
Premium members get this course for $87.50.
Premium members get this course for $389.00.
Premium members get this course for $168.80.
Premium members get this course for $159.20.
Premium members get this course for $12.50.