Aplikasi Sederhana Pada Pendatan Buku Dengan Visual Basic 2010

soce code untuk koneksi ke data base

Imports System.Data
Imports System.Data.OleDb

Module Module1
    Public Conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public rd As OleDbDataReader
    Public str As String

    Public Sub Koneksi()
        str = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
        Conn = New OleDbConnection(str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub

End Module