koneksi dinamis vbnet

Imports System.Data
Imports MySql.Data.MySqlClient
Imports System.Windows.Forms
Imports System.Security.Cryptography

Module ModKoneksi

    Public dbServer As String
    Public dbport As Integer
    Public dbUser As String
    Public dbPassword As String
    Public dbName As String

    Public conn As MySqlConnection
    Public cmd As MySqlCommand
    Public rd As MySqlDataReader
    Public da As MySqlDataAdapter
    Public ds As DataSet
    Public dt As DataTable
    Public sstr As String
    Public sLocalConn As String

    Public Sub GetDatabaseSetting()
        dbServer = My.Settings.dbserver
        dbport = My.Settings.dbport
        dbUser = My.Settings.dbuser
        dbPassword = My.Settings.dbpass
        dbName = My.Settings.dbname
        sLocalConn = "server=" & dbServer & ";port=" & dbport & ";user id=" & dbUser & ";" & _
                     "password=" & dbPassword & ";database=" & dbName
    End Sub
    Public Function DatabaseConnected(Optional ByVal Server As String = "", _
            Optional ByVal port As Integer = 0, _
            Optional ByVal User As String = "", _
            Optional ByVal Password As String = "", _
            Optional ByVal DatabaseName As String = "") As Boolean

        conn = New MySqlConnection()
        If Server = "" And port = 0 And User = "" And Password = "" And DatabaseName = "" Then
            conn.ConnectionString = sLocalConn
        Else
            conn.ConnectionString = "server=" & Server & ";port=" & port & ";user id=" & _
                                    User & ";password=" & Password & _
                                    ";database=" & DatabaseName
        End If
        Try
            conn.Open() ' kita pakai ini untuk open koneksi tiap event/form
            conn.Close() 'kita pakai ini tiap close event/form
            Return True
        Catch myerror As MySqlException
            Return False
            MessageBox.Show("Error: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
        Return False
    End Function
    Public Function computeHash(ByVal textToHash As String) As String
        '//dibawah ini adalah sebuah fungsi untuk mengenkripsi text dengan metode MD5
        Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim Bytes() As Byte = MD5.ComputeHash(System.Text.Encoding.ASCII.GetBytes(textToHash))
        Dim s As String = Nothing
        For Each by As Byte In Bytes
            s += by.ToString("x2")
        Next
        Return s
    End Function
End Module

'============================================
' yang ini di formkoneksi
Imports MySql.Data.MySqlClient
Public Class FormKoneksi
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub
    Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Close()
    End Sub

    Private Sub FormKoneksi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        GetDatabaseSetting()
        txtserver.Text = dbServer
        txtport.Text = dbport
        txtuser.Text = dbUser
        txtpass.Text = dbPassword
        txtdb.Text = dbName
        statuskoneksi()
    End Sub
    Public Sub statuskoneksi()

        If DatabaseConnected(txtserver.Text, txtport.Text, txtuser.Text, _
            txtpass.Text, txtdb.Text) = True Then 'harus berurutan dengan data di my.setting

            lblkoneksi.Text = "Terhubung ...."
            FormLogin.PicConnect.Show()
            FormLogin.PicDisconnect.Hide()
            ' FormLogin.btnconnect.Show()
            ' FormLogin.btnDisconnect.Hide()
        Else

            lblkoneksi.Text = "Tidak terhubung "
            FormLogin.PicConnect.Hide()
            FormLogin.PicDisconnect.Show()
            ' FormLogin.btnconnect.Hide()
            'FormLogin.btnDisconnect.Show()
        End If
    End Sub

    Private Sub txtsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsave.Click

        Try

            With My.Settings
                .dbserver = txtserver.Text
                .dbport = txtport.Text
                .dbuser = txtuser.Text
                .dbpass = txtpass.Text
                .dbname = txtdb.Text
                .Save()
                MsgBox("simpan konfigurasi sukses")
            End With
            GetDatabaseSetting()
            statuskoneksi()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub PicClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicClose.Click
        Close()
    End Sub
End Class