Group Header and Footer without Data Environment

Private Sub CmdPreview_Click()
Dim SqlInv As String
'Dim txtCustomerName As TextBox
Dim CustName As String

Public Conn As ADODB.Connection

Public Sub dbConnect()
  Set Conn = New ADODB.Connection
  Conn.ConnectionString = strConn
  Conn.Open
End Sub

Public Function strConn() As String
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbdrugInventory.mdb" & ";Persist Security Info=False"
End Function