Attribute VB_Name = "globals"
Public Const gridSize = 1024

'Varibles use to read and error check input
Global ReadFile() As String
Global Northing() As Double  'Array of northing points
Global Easting() As Double   'Array of Easting Points
Global masl() As Double      'Array of meters abouve sea level

'Global sDate() As Long       'Array of dates

Global RecordCounter As Integer
Public conDB As ADODB.Connection 'Connection to database
Public adoRS As ADODB.Recordset  'Database recordset
Global dataOpen As Boolean 'Used to test whether the database is open

Global id() As Integer
Global survey() As String
Global SCounter As Integer
Global Current_Survey As Integer
Global dataImport As Boolean

Global Terrain(0 To gridSize - 1, 0 To gridSize - 1) As Byte

'intialise varibles

Public Sub main()
  Let dataOpen = False
  frmImport.Show
  
End Sub

Public Sub Read_Survey(mod_name As Object)
   Dim i As Integer
   
   
   Set rsSurvey = conDB.Execute("select * from survey")
   
   SCounter = 0
   ' loop through the recordset adding items to the list box
   Do While Not rsSurvey.EOF
     SCounter = SCounter + 1
     rsSurvey.MoveNext
   Loop
   
   ReDim id(1 To SCounter)
   ReDim survey(1 To SCounter, 1 To 3)
   rsSurvey.MoveFirst
   For i = 1 To SCounter
       'count the number of records in the database
       id(i) = rsSurvey.Fields("surveyID")
       survey(i, 1) = rsSurvey.Fields("surveyName")
       
       If rsSurvey.Fields("surveydetails") <> "" Then
          survey(i, 3) = rsSurvey.Fields("surveyDetails")
          
       End If
       If rsSurvey.Fields("sdate") <> "" Then
          survey(i, 2) = rsSurvey.Fields("sdate")
       End If
       mod_name.cboSurveys.AddItem (survey(i, 1))
       
       rsSurvey.MoveNext
   Next i
   
   'id and name must be completed so need need to test them
       
   mod_name.txtSName.Text = survey(1, 1)
   mod_name.txtComment.Text = survey(1, 3)
   mod_name.txtDate.Text = survey(1, 2)
   
   mod_name.cboSurveys.ListIndex = 0 ' default to the first survey
End Sub

Public Function Select_Survey(mod_name As Object) As Integer
   mod_name.txtSName.Text = survey(mod_name.cboSurveys.ListIndex + 1, 1)
   mod_name.txtDate.Text = survey(mod_name.cboSurveys.ListIndex + 1, 2)
   mod_name.txtComment.Text = survey(mod_name.cboSurveys.ListIndex + 1, 3)
   Select_Survey = id(mod_name.cboSurveys.ListIndex + 1)
End Function