Imports System.Data.OleDb

Module Module1
    '======UNTUK KONEKSI PROJECT/FORM KE DATABASE
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public rd As OleDbDataReader
    Public da As OleDbDataAdapter
    Public ds As DataSet

    Sub koneksi()
        conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=db_rentalmobil.mdb")
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module