Modul Koneksi ke Database MySql (Vb.Net 2008)

Imports System.Data.Odbc
Imports System.Data

Module Module1
     Public conn As OdbcConnection
     Public da As OdbcDataAdapter
     Public ds As DataSet
     Public dtreader As OdbcDataReader
     Public cmd As OdbcCommand
     Public strcon As String

Public Sub koneksi()
    strcon = “Dsn=mydbbrg”
    conn = New OdbcConnection(strcon)
    If conn.State = ConnectionState.Closed Then
       conn.Open()
    End If
End Sub

End Module