//Connecting to database

  Dim db As New MySQLCommunityServer
  db.DatabaseName = "test"
  db.Host = "localhost"
  db.UserName = "root"
  db.Password = "test"

  //Checking Connection

  If Not db.Connect Then
    MsgBox("Unable to connect to database server")  //Need to change how this works.
    error.Text = "NOT CONNECTED"
    error.TextColor=&cFF0000
  else
    Error.Text = "CONNECTED"
    Error.TextColor=&C00FF00
  End If

  //Adding Departments to dropdown1