module

Imports MySql.Data.MySqlClient

Module ModuleKoneksiMySQL

    Public conn As MySqlConnection
    Public cmd As MySqlCommand
    Public rd As MySqlDataReader
    Public da As MySqlDataAdapter
    Public ds As DataSet
    Public str As String

    Sub koneksi()

        Try

            Dim str As String = "Server=localhost;user id=root;password=marlboro;database=sekolah"

            conn = New MySqlConnection(str)

            If conn.State = ConnectionState.Closed Then

                conn.Open()

            End If

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

End Module