Attribute VB_Name = "modCSS"
Option Explicit
'Const msDialogTitle = "CSS"

'Private Sub Form_Load()
'Set mcnAp = New Connection
'    Set mrsCSS = New Recordset
'    mcnAp.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
'        "Data Source = C:\css\css_1.mdb"
''    mrsVendors.Open "SELECT VendorName, VendorAddress1, VendorAddress2, VendorCity, " & _
''                                 "VendorState, VendorZipCode, VendorContact, VendorPhone " & _
''                                 "FROM Vendors ORDER BY VendorName", _
''                    mcnAp, adOpenKeyset, adLockOptimistic, adCmdText
'
'    mrsVendors.Open "Select * FROM Vendors ORDER BY VendorName", _
'    mcnAp, adOpenKeyset, adLockOptimistic, adCmdText
'
'    LoadControls
'    SetCommandButtons True
'    SetNavigationButtons True
'    Load frmMain
'End Sub
'