Membuat koneksi Tanpa Objek

Sebenarnya membuat koneksi database ada beberapa cara, tapi kali ini saya hanya akan membuat koneksi Database access dalam program tanpa menggunakan objek Adodc, caranya dengan menuliskan koding sebagai berikut :

Dim Conn As New ADOB.Connection

Dim RsBarang As ADODB.Recordset

Private Sub Form_Load()

Set Conn = New ADODB.Connection

Set RsBarang = New ADODB.Recordset

Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & App.Path & “\DBDasar.Mdb”

End Sub

Ingat : RsBarang adalah nama tabel

: DBDasar.mdb adalah nama database