01.Imports System.Data
02.Imports MySql.Data.MySqlClient
03.Imports System.Data.SqlClient
04.Public Class Form1
05. Dim serverstring As String = "server=....;user id=.....;password=.....;database=.....;"
06. Dim sqlconnection As MySqlConnection = New MySqlConnection
07. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
08. sqlconnection.ConnectionString = serverstring
09. Try
10. If sqlconnection.State = ConnectionState.Closed Then
11. sqlconnection.Open()
12. MsgBox("เชื่อมต่อสำเร็จ")
13. Else
14. sqlconnection.Close()
15. End If
16. Catch ex As Exception
17. MessageBox.Show("Error : " & ex.Message & "")
18. End
19. End Try
20. End Sub
