Attribute VB_Name = "globals"
'temp varibles use to read and error check input
Public readfile(1 To 2500, 1 To 4) As String
Global Northing(1 To 2500) As Single
Global Easting(1 To 2500) As Single
Global Masl(1 To 2500) As Single
Public sDate(1 To 2500) As Long

Global RecordCounter As Integer
Public conDB As ADODB.Connection
Public adoRS As ADODB.Recordset


Public Sub main()
  frmImport.Show
  
End Sub