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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)