Membuat Module Koneksi di VB .NET Access

Membuat Module Koneksi di VB .NET Access

Imports System.Data.OleDb
Module koneksi
    Public conn As OleDbConnection
    Public ds As New DataSet
    Public dr As OleDbDataReader
    Public da As OleDbDataAdapter
    Public cmd As OleDbCommand
    Public str As String

    Public Sub koneksi()
        str = "provider=microsoft.jet.oledb.4.0;data source = namaDB.mdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        Else
            MsgBox("Gagal bos!")
        End If
    End Sub
End Module

*panggilah koneksi jika dibutuhkan dengan => call koneksi()