Attribute VB_Name = "Module1"
Public Const StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"
Public namedealer As String
Public iddealer As String
Public new_dealer  As String