Loader

Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Login
    Dim Connected As Boolean
    Dim MysqlConn As MySqlConnection


    Dim server As String = "server=localhost;"
    Dim User As String = "uid=nopenope;"
    Dim Pass As String = "pwd=nope;"
    Dim DB As String = "database=nope;"

    Dim myConnectionString As String

    Function CheckConnection()
        ' Dim Conn As String = "server=" + server + ";userid=" + User + ";password=" + Pass + ";database" + DB
        MysqlConn = New MySql.Data.MySqlClient.MySqlConnection
        MysqlConn.ConnectionString = myConnectionString
        Try
            MysqlConn.Open()
            Status.Text = "Status: Online"
            Connected = True
            MysqlConn.Close()
        Catch ex As Exception
            MsgBox("Can't connect to database! ", MsgBoxStyle.Critical)
            Connected = False
            Status.Text = "Status: Offline"
        Finally
            MysqlConn.Dispose()
        End Try
    End Function
    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        myConnectionString = server _
            & User _
            & Pass _
            & DB

        CheckConnection()
    End Sub