Modul Koneksi VB dan Mysql

Untuk mengkoneksikan database mysql ke vb. net 2010 buatlah module dengan nama koneksi. script module koneksi ada di bawah ini :
Imports MySql.Data.MySqlClient
Imports System.Data
Module koneksi
Public server As String = “SERVER = localhost ; USERID = root; PASSWORD = ; DATABASE = tokodb; Convert Zero Datetime=True; Allow Zero Datetime=True;”


Public sConnection As New MySqlConnection
Public sqlCommand As New MySqlCommand
Public sqlAdapter As New MySqlDataAdapter
Public konfirmasi As MsgBoxResult
Public DR As MySqlDataReader
Public cur As New Form
Public Sub cekkoneksi()
If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = serper
sConnection.Open()
End If
End Sub
Public Sub TutupKoneksi()
With sConnection
.Dispose()
.Close()
End With
End Sub
End Module