Imports MySql.Data.MySqlClient
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        Dim conn As MySqlConnection = New MySqlConnection
 
        Dim txtServer As String
        Dim txtUsername As String
        Dim txtPassword As String
 
        txtServer = "localhost"
        txtUsername = "root"
        txtPassword = ""
 
 
        conn.ConnectionString = "server=" & txtServer & ";" _
          & "user id=" & txtUsername & ";" _
          & "password=" & txtPassword & ";" _
          & "database=gast"
        Try
            conn.Open()
            MessageBox.Show("Connection Opened Successfully")
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
 
 
    End Sub
End Class