Public db As Connection
 
Sub Main()
    Dim SQLString As String
    Dim DataBasePath As String
 
    Set db = New Connection  'create a database connection
    db.CursorLocation = adUseClient
    DataBasePath = App.Path & "\MyDatabase.mdb"
 
Reconnect: 'this is a label statement used in conjuction with a Goto statement
    If DatabaseConnected(DataBasePath) Then
        frmMainMenu.Show
    Else
        DataBasePath = InputBox("Enter correct database path:", "User Input" & _
          "required...", DataBasePath)
        GoTo Reconnect 'goto the label you set before
    End If
 
End Sub
 
Private Function DatabaseConnected(DatabasePathParameter As String) As Boolean
'function is separated to trap multiple connection error
    On Error GoTo errTrap
    DatabaseConnected = False
    db.Open "PROVIDER = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
      DatabasePathParameter & ";"
    DatabaseConnected = True 'function is set to true if connection is 
    ' successfull
 
Exit Function
errTrap:
'jumps here if there is an error in db.Open
 
End Function

Private Sub Form_Load()
Dim SQLString As String
 
SQLString = "SELECT StudentNum, Name, CourseYear, Term, Sex "
SQLString = SQLString & "FROM StudyLoad_Table"
Set Me.MSHFlexGrid1.DataSource = db.Execute(SQLString)
Me.MSHFlexGrid1.AddItem "" 'adds a blank row
End Sub