Minggu, 29 November 2015

YUK! belajar pemograman visual basic dot net mesran.net

Public Class Form1 Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load no.Items.Add("1") no.Items.Add("2") no.Items.Add("3") Lv.Columns.Add("NO", 50, HorizontalAlignment.Center) Lv.Columns.Add("NIK", 50, HorizontalAlignment.Left) Lv.Columns.Add("nama pegawai", 80, HorizontalAlignment.Center) Lv.Columns.Add("golongan", 130, HorizontalAlignment.Center) Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Center) Lv.Columns.Add("pajak", 80, HorizontalAlignment.Center) Lv.Columns.Add("Gaji bersih", 80, HorizontalAlignment.Center) Lv.View = View.Details Lv.GridLines = True Lv.FullRowSelect = True End Sub Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click pajak.Text = 0.05 * Gajipokok.Text gajibersih.Text = Val(Gajipokok.Text - pajak.Text) Dim lst As New ListViewItem lst.Text = no.Text lst.SubItems.Add(nik.Text) lst.SubItems.Add(namapegawai.Text) lst.SubItems.Add(Golongan.Text) lst.SubItems.Add(Gajipokok.Text) lst.SubItems.Add(pajak.Text) lst.SubItems.Add(gajibersih.Text) Lv.Items.Add(lst) End Sub Private Sub no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no.SelectedIndexChanged Select Case no.Text Case "1" nik.Text = 1 Gajipokok.Text = 1500000 namapegawai.Text = "Hendro" Golongan.Text = 1 Case "2" nik.Text = 2 Gajipokok.Text = 2500000 namapegawai.Text = "Dian" Golongan.Text = 2 Case "3" nik.Text = 3 Gajipokok.Text = 1500000 namapegawai.Text = "Jhoni" Golongan.Text = 3 End Select End Sub End Class hasil awal:
hasil akhir

Sabtu, 28 November 2015

https://www.blogger.com/blogger.g?blogID=1534118602390619835#editor/target=post;postID=1237101087759508405

Senin, 05 Oktober 2015


Rumus Microsoft Excel Lengkap Dengan Contoh dan Gambar

Ilustrasi Mikir Rumus Excel
Ilustrasi Mikir Rumus Excel
Jika Anda sering menggunakan aplikasi Microsoft Excel baik yang 2003, 2007 maupun yang versi terbaru, maka pasti Anda sudah tidak asing lagi menggunakan rumus-rumus Microsoft Excel yang ada dalam aplikasi tersebut. Nah sekarang pertanyaannya adalah bagaimana jika Saya seorang pemula?, bagaimana jika Saya masih belum pernah Belajar Komputer?, bagaimana jika Saya masih belum tau sama sekali membuka aplikasi pengolahan data Microsoft Excel seperti yang akan dijelaskan sekarang ini.? Tidak perlu khawatir kawan, sekarang Anda juga akan bisa mengaplikasikan rumus-rumus dalam Microsoft Excel karena panduan Belajar Microsoft Excel ini disertai dengan contoh dan gambar yang akan memudahkan Anda untuk mempraktekkannya. Baiklah tanpa harus panjang lebar, sekarang langsung Kita masuk ke materi pembahasan mengenai rumus Microsoft Excel, simak dengan baik ya kawan.
Microsoft Office Excel memang dikenal dengan penggunaan rumus-rumus atau formula dalam lembar kerjanya. Penggunaan rumus yang efektif akan memudahkan Anda dalam membuat laporan pekerjaan dengan menggunakan MS Excel. Formula atau rumus MS Excel adalah keunggulan tersendiri untuk aplikasi ini, dengan kemampuannya dalam mengolah data melalui perhitungan matematis yang sangat beragam fungsinya.
Setiap rumus di dalam MS Excel memilik fungsi tersendiri. Oleh karena itu Anda harus benar-benar memahami masing-masing fungsi dasarnya agar penggunaan rumus dalam MS Excel bisa lebih maksimal dan efisien. Jika telah paham fungsi dasarnya, Saya rasa Anda bisa berkreasi dalam meracik rumus yang sesuai dengan kebutuhan data Anda.

Cara Menulis Rumus Excel

Sebelum mengenal  rumus-rumus excel 2007, hal pertama yang perlu Anda ketahui adalah bagaimana menuliskan rumus excel agar bisa benar. 
Cara 1: Menulis rumus dengan mengetikkan angka langsung
  1. Letakkan penunjuk sel pada sel tempat hasil rumus akan ditampilkan 
  2. Pada formula bar, ketikkan = 5000000+3500000, lalu tekan tombol enter.
Note : Menulis rumus dengan cara ini cukup mudah kalau rumusnya sederhana dan pendek serta angkanya tetap.
Cara 2: Menulis rumus dengan menggunakan alamat sel
  1. Letakkan penunjuk sel pada sel tempat hasil rumus ditampilkan 
  2. Pada formula bar, ketikkan = C4+C5, lalu tekan tombol enter.
Note : Menulis rumus dengan cara ini sangat bermanfaat jika datanya sering berubah.
Cara 3: Menulis rumus dengan bantuan mouse
  1. Letakkan penunjuk sel pada sel tempat hasil rumus akan ditampilkan
  2. Ketikkan = , kemudian pilih dan klik sel C4
  3. Ketik +, kemudian pilih dan klik sel C5
  4. Tekan tombol enter
Note : Menulis rumus dengan cara ini sangat dianjurkan karena memperkecil kemungkinan salah ketik alamat sel.
Nah... bagaimana mudah bukan cara menuliskan rumus excel, jika Anda sudah mahir dalam menuliskannya sekarang mari Kita lanjutkan pembahasannya. 

Operator Matematika yang Sering Digunakan (Rumus Dasar)

Rumus merupakan bagian terpenting dari Program Excel ini, karena setiap tabel dan dokumen yang Kita ketik akan selalu berhubungan dengan rumus dan fungsi. MS Excel memang sangat diunggulkan dalam menampung data-data yang bersifat numerik. Maka dari itu, di dalam MS Excel pun terdapat Operator dasar Matematika dan ini biasanya disebut sebagai rumus standar. Operator matematika yang akan sering digunakan dalam Rumus Microsoft Excel adalah sebagai berikut:
No
Operator
Fungsi
Contoh Penggunaan
1
+ (ikon plus)
Penjumlahan
=A1+A2
2
- (ikon minus)
Pengurangan
=A3-A4
3
* (ikon bintang)
Perkalian
=A5*A6
4
/ (ikon garis miring)
Pembagian
=A7/A8
5
^ (ikon caret)
Pangkat
=A9^2 (angka berapapun yang berada di cell A9 akan dipangkat 2
6
% (ikon persen)
Prosentase
=A1*10% (gunakan sesuai dengan kebutuhan)
Tabel Operator Matematika (Rumus Dasar Excel)
Tidak usah bingung, sekarang perhatikan gambar tabel yang ada dibawah ini.

Penjelasan Gambar Tabel Diatas :
  1. Mengisi Kolom Diskon
  2. Untuk mengisi kolom diskon berikut adalah langkah-langkah yang harus dilakukan. 
    • Klik pada kolom yang akan diisikan Diskon Rp. (pada contoh ini sel yang akan digunakan adalah G6, silahkan aktifkan kolom G6)
    • Awali dengan menuliskan "=" (setiap rumus excel harus diawali menggunakan operator = tanpa tanda kutip agar dikenali sebagai fungsi)
    • Kalikan kolom E6 dengan F6 untuk mengetahui hasil persennya, bentuk penulisannya adalah =E6*F6 
    • Kemudian tekan enter untuk mengetahui hasilnya, maka akan didapat angka 30,000 pada kolom G6 tadi (30,000 adalah 20% dari 150,000)
    • Untuk menghitung rumus Diskon Rp. selanjutnya, silahkan copy format dengan cara drag pada rumus yang sudah selesai dikerjakan kemudian tarik hingga kolom G15.
    Tips : Anda bisa langsung klik kolom yang akan dikalikan tanpa harus susah payah mengetik kolom yang akan dihitung satu persatu.
  3. Mengisi Total Bayar
  4. Nah setelah selesai mengisi kolom Diskon Rp. sekarang lanjutkan dengan mengisi kolom Total Biaya.
    • Klik pada kolom yang akan diisikan Total Bayar (pada contoh ini sel yang akan digunakan adalah H6, silahkan aktifkan kolom H6)
    • Awali dengan menuliskan "=" (setiap rumus excel harus diawali menggunakan operator = tanpa tanda kutip agar dikenali sebagai fungsi)
    • Pada kolom H6 Kurangkan kolom Biaya (E6) dengan kolom Diskon Rp. (G6)  untuk mengetahui hasil pengurangannya, bentuk penulisannya adalah =E6-G6 
    • Kemudian tekan enter untuk mengetahui hasilnya, maka akan didapat hasil 120,000 pada kolom Total Bayar yang pertama.
    • Untuk menghitung rumus Total Bayar selanjutnya, silahkan copy format dengan cara drag pada rumus yang sudah selesai dikerjakan kemudian tarik hingga kolom H15.

Tips : Untuk melanjutkan mengisi kolom jumlah di bawahnya (kolom H7 dst), kita cukup memblok cell yang telah berisi rumus operator perkalian, arahkan kursor ke pojok kanan bawah cell/kolom. Tunggu hingga kursor berubah menjadi ikon (+). Setelah itu, click dan tahan lalu drag/geser ke bawah. Dengan demikian, kita telah meng-copy rumus tadi dan telah disesuaikan perubahannya untuk kolom yang akan dikalikan lagi.

Mengenal Fungsi atau Rumus Microsoft Excel

Setelah mengenal Tipe Data Microsoft Excel, dan bisa memulai menggunakan aplikasi excel sekarang Kita coba bahas rumus excel yang sering digunakan dalam dunia kerja atau administrasi perkantoran.

1. Fungsi Average


Fungsi ini digunakan untuk mencari nilai rata-rata dari sekumpulan data (range). Bentuk umum penulisannya adalah ;

=AVERAGE(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data yang akan dicari nilai rata-ratanya. Misalnya untuk mengisi nilai rata-rata dari range data E8 sampai G8, maka rumusnya adalah =AVERAGE(E8:G8) kemudian tekan tombol Enter.


2. Fungsi Sum
Fungsi SUM digunakan untuk menjumlahkan sekumpulan data pada suatu range. Bentuk umum penulisan fungsi ini adalah =SUM(number1, number2,…). Dimana number1, number2 dan seterusnya adalah range data yang akan dijumlahkan. Misalnya untuk menjumlahkan range data E8 sampai G8, maka rumusnya adalah =SUM(E8:G8) kemudian tekan tombol Enter.

3. Fungsi Max
Fungsi ini digunakan untuk mencari nilai tertinggi dari sekumpulan data (range). Bentuk umum penulisannya adalah ;
=MAX(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dicari nilai tertingginya. Misalnya untuk mencari nilai maksimal dari range data E8 sampai G8, maka rumusnya adalah =MAX(E8:G8) kemudian tekan tombol Enter.

4. Fungsi Min
Fungsi Min adalah kebalikan dari fungsi Max, jika fungsi Max untuk mencari nilai tertinggi atau maksimal maka Min adalah untuk mencari nilai terkecil atau minimum dari sekumpulan data numerik. Bentuk umum penulisannya adalah ; 
=MIN(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dicari nilai tertingginya. Sebagai contoh untuk mencari nilai terendah dari range data E8 sampai G8, maka rumusnya adalah =MIN(E8:G8) kemudian tekan tombol Enter.
5. Fungsi Count
Fungsi Count digunakan untuk menghitung jumlah data dari suatu range yang kita pilih. Bentuk umum penulisannya adalah ; 
=COUNT(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dihitung jumlah datanya. Sebagai contoh untuk menghitung jmlah data dari range data E8 sampai G8, maka rumusnya adalah =COUNT(E8:G8) kemudian tekan tombol Enter.

6. Fungsi Logika IF
Fungsi ini digunakan jika data yang dimasukkan mempunyai kondisi tertentu. Misalnya, jika nilai sel A1=1, maka hasilnya 2, jika tidak, maka akan bernilai 0. Biasanya fungsi ini dibantu oleh operator relasi (pembanding) seperti berikut:
Lambang Fungsi
= Sama dengan
< Lebih kecil dari
> Lebih besar dari
<= Lebih kecil atau sama dengan
>= Lebih besar atau sama dengan
<> Tidak sama dengan
Bentuk umum penulisan fungsi ini adalah ;
=IF(logical_test,value_if_true,value_if_false), artinya kalau ekspresi logika (logical_test) bernilai benar, maka perintah pada value_if_true akan dilaksanakan, jika salah, maka perintah pada value_if_false yang akan dilaksanakan. Perhatikan contoh berikut:
Contoh logika IF
Contoh logika IF
Kolom keterangan diisi dengan ketentuan, jika kolom TANDA sama dengan K, maka keterangannya KAWIN, jika tidak, maka keterangan berisi TIDAK KAWIN. Ini dapat diselesaikan dengan rumus =IF(C3=”K”, “KAWIN”,”TIDAK KAWIN”). Pada rumus diatas Kita lihat bahwa jika datanya bertipe Teks/alpha numerik harus diapit oleh tanda kutip dua, lain halnya dengan tipe data numerik, tidak boleh menggunakan tanda kutip. Nah sekarang bagaimana jika ada beberapa kondisi/bertingkat (IF Bertingkat) seperti pada kasus nilai mahasiswa. Tidak perlu khawatir, langsung saja perhatikan gambar diatas pada tabel sebelah kanan. =IF(H3>=81,"A",IF(H3>=66,"B",IF(H3>=56,"C",IF(H3>40,"D","E")))), hal yang sama juga bisa dilakukan untuk mengisi kolom keterangan, dengan ketentuan, Jika nilai hurufnya sama dengan “A” maka keterangan “SANGAT MEMUASKAN, jika “B” maka “MEMUASKAN”, jika “C”, maka “CUKUP”, dan jika “D” maka bernilai “KURANG”, selain dari itu, maka bernilai “GAGAL”. Nah sekarang sudah paham kan bagaimana cara menggunakan fungsi IF, sekarang langsung dipraktekkan deh supaya tidak lupa. Semoga Tutorial Belajar Microsoft Excel kali ini bisa membantu rekan-rekan sekalian, jika ada yang perlu ditanyakan silahkan hubungi Saya melalui Email, Google+, Facebook dll.

Hal Dasar yang Harus Diketahui Ketika Belajar Visual Basic 2008

  19 November 2014     Tutorial Visual Basic     seputarpemrograman
Ketika memulai belajar visual basic tepatnya disini versi 2008 atau yang sering disebut VB 9, banyak pemula bingung darimana harus memulainya. Itu terjadi tidak hanya ketika belajar visual basic saja tetapi belajar hal lain atau bahasa pemrogramman yang lain pula. Pada kali ini saya akan sharing hal yang sangat mendasar yaitu :
  1. Cara Membuat Project Baru pada VB 2008
  2. Cara Menjalankan Project pada VB 2008
  3. Cara Menyimpan Project pada VB 2008
  4. Dan Mencoba membuat Form sederhana pada VB 2008
1. Cara Membuat Project Baru
Menu : File -> New Project.. (CTRL + N)
Atau lihat gambar dibawah ini.
 vb 2008
Selanjutnya akan muncul kotak dialog sebagai berikut :
 belajar vb 2008
Isi sesuai data diatas lalu OK
Setelah itu akan tampil berikut dan inilah hasil dari pembuatan project visual basic 2008
belajar visual basic

2.  Cara Menjalankan Project pada VB 2008
 Klik Start Debugging (Pada gambar dibawah ini yang kotak merah)
 belajar menjalankan visual basic
 Dan ini hasil dari menjalankan program diatas
 form visual basic

3. Cara Menyimpan Project pada VB 2008
Menu : File -> Save All (CTRL + Shift + S)
Atau lihat gambar dibawah ini :
menyimpan visual basic
Akan Muncul Kotak dialog
vb 2008 dasar
Lalu Klik Save

4. Mencoba membuat Form sederhana pada VB 2008
Buatlah Tampilan sebagai berikut :
 vb form
Keterangan :
1.Label = (name “nama”)
2.Label = Alamat (name “alamat”)
3.TextBox = ( name “txtnama” )
4.TextBox = (name “txtalamat”)
5.Button (Text = “Tampil” , name “tblTampil”)
6.Label (Texxt = “-” , name “hasilnama”)
7.Label (Text = “-” , name “hasilalamat”)
Klik pada Button tampil lalu tambahkan code berikut :
1
2
3
hasilnama.Text = txtnama.Text
 
hasilalamat.Text = txtalamat.Text
Berikut hasil Program diatas
vb form 2008

Memasang Link Di Dalam Struktur Template

Untuk melakukan ini maka anda haruslah cukup berpengalaman dalam mengedit template. Jika tidak sebaiknya anda melakukan back up template, agar ada alternatif untuk pemulihan jika anda melakukan kesalahan fatal....
Yang perlu anda lakukan di sini adalah mengubah tanggal kutip ganda pada HTML menjadi tanda kutip tunggal.
<a href='http://www.example.com/'>Situs Ujicoba</a>
Setelah itu buka menu TEMPLATE dan klik tombol EDIT HTML. Letakkan kode HTML yang sudah diedit tadi pada tempat yang anda inginkan di dalam bagian <body>...

Membuat Pengaturan Tampilan Untuk Link Dengan CSS

Jika pada template anda tidak ada pengaturan CSS untuk link, maka link akan ditampilkan menurut standar pengaturan browser yang digunakan oleh pengunjung. Tapi jika anda tertarik untuk membuat pengaturan tampilan untuk link anda, maka aturlah pada bagian CSS....

Kode CSS dasar dari link

Pertama-tama harus diperjelas dulu apa platform dari website anda..., karena ada beberapa metode memasang CSS di dalam situs anda. Tapi apapun metodenya CSS itu harus ditaruh di dalam bagian <head> dari template anda....
Perlu dicatat bahwa operator untuk menentukan nilai sebuah link adalah a. Jadi bentuk dasar dari CSS sebuah link adalah
a {
properti nilai pengatur link
}
Sebagai contoh anda mau membuat linknya berwarna merah, maka masukkan nilai seperti berikut:

a {
color:#ff0000;
}
Ada banyak sekali properti yang bisa anda suntikkan ke dalam tanda kurung {....} yang mengapit pengaturan a di atas.... beberapa di antaranya seperti dicantumkan di bawah ini....

Properti pengatur tampilan link

Pada dasarnya link adalah teks juga, jadi untuk membuat pengaturan kita bisa memakai semua CSS pengaturan teks.... Perhatikan beberapa properti di bawah ini:
  • font-family (Mengatur Jenis huruf contohnya:Arial, Times New Roman, dll)
  • font-size (Mengatur besar dari huruf)
  • font-weight (Mengatur ketebalan huruf)
  • color (Mengatur Warna Huruf dengan menggunakan kode warna)
  • text-decoration (Mengatur variasi text, misalnya ...menentukan apa memakai garis bawah atau tidak)
  • letter-spacing (Mengatur jarak antar huruf)
  • text-shadow (Mengatur bayangan pada huruf)
Perhatikan bahwa nama properti selalu diakhiri titik dua (:) dan nilai properti diakhiri titik koma (;)

Praktek Membuat Pengaturan Link

Sekarang saya akan coba membuat tampilan link dengan kode CSS di bawah ini:

a {
font-family: Times New Roman;
font-size: 24px;
font-weight: bold;
color: red;
text-decoration: underline;
letter-spacing: 2px;
text-shadow: 0px 0px 5px yellow;

}
 
Hasilnya akan terlihat seperti di bawah ini:
Cara Membuat Link Di Blog

Membuat Pseudo-Class pada Link

Mungkin banyak teman-teman yang bingung kenapa ada link saat belum dikunjungi berwarna merah, saat disorot berwarna biru; saat dikunjungi berwarna abu-abu; dan setelah dikunjungi berwarna hitam; atau variasi warna lainnya....

Semua itu bisa terjadi karena variasi pseudo-class yang kita berikan. Ada 4 pseudo-class yang bisa anda pakai untuk membuat 4 variasi yang berbeda, yaitu:
  • a:link
  • a:hover
  • a:active
  • a:visited
Yang perlu anda lakukan hanya memasukkan properti yang anda inginkan berubah dari bentuk link dasar setelah link dikenakan perlakukan tertentu.... Link dasar dalam hal ini dinyatakan dengan pseudo-class a:link....

Lihat contoh berikut:
a:link {
font-family: Times New Roman;
font-size: 24px;
font-weight: bold;
color: red;
text-decoration: underline;
letter-spacing: 2px;
text-shadow: 0px 0px 5px yellow;
}
a:hover {
color: blue;
}
a:active {
color: grey;
}
a:visited {
color:black;
}
Dari contoh di atas teman-teman bisa melihat bahwa saya hanya ingin variasi dalam hal warna. Jika saya ingin ada variasi dalam hal ukuran, warna bayangan,garis bawah, dan lain-lain, maka saya tinggal menambahkan saja perubahan apa yang saya inginkan....

Mengatur tampilan link hanya pada area tertentu dalam halaman

Hal ini bisa anda lakukan jika area tersebut dibatasi oleh sebuah class atau id, dan anda harus mengetahui apa class/id dari area tersebut.... Sebagai contoh:
<div class="sidebarkanan">
......
......
</div>
 
Dari kode di atas kita bisa melihat bahwa area tersebut dibatasi dengan class sidebarkanan. Oleh karena class diberi tanda titik dalam css, maka operatornya adalah .sidebarkanan

Jadi contoh kodenya sekarang adalah:
.sidebarkanan a:link {
font-family: Times New Roman;
font-size: 24px;
font-weight: bold;
color: red;
text-decoration: underline;
letter-spacing: 2px;
text-shadow: 0px 0px 5px yellow;
}
.sidebarkanan a:hover {
color: blue;
}
.sidebarkanan a:active {
color: grey;
}
.sidebarkanan a:visited {
color:black;
}
Dengan seperti ini, maka hanya link-link yang berada di dalam div ber-class sidebarkanan saja yang akan terkena pengaruhnya....

Meletakkan Kode CSS pengaturan yang baru

Setelah anda selesai membuat kode CSS ini, di mana anda bisa meletakkannya? Bagi pengguna blogspot, anda hanya perlu membuka menu TEMPLATE > EDIT HTML dan cari kode </b:skin>. Taruh kode tadi tepat di atas </b:skin> maka pengaturan link yang sebelumnya akan ditimpa. Klik SIMPAN TEMPLATE untuk melihat hasil.....

Sedangkan untuk web umumnya, anda bisa menarunya di atas kode </style> atau di dalam external CSS file yang mengatur tampilan dari halaman tersebut....

Koneksi Database Access 2007 VB .Net 2008

Cara Koneksi Database Access 2007 / 2010 / 2013 Dengan VB .Net 2008
Pembelajaran dibawah bisa anda gunakan untuk Koneksi database Access 2007 atau Access 2010 atau Access 2013

Berikut langkahnya :
1. Membuat Project Baru VB 2008 dan Menyimpannya
2. Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
    Bin / Debug akan muncul ketika anda telah membuat Project VB 2008
3. Design Form, Masukan Koding dan Jalankan Program

(1) - Membuat Project Baru VB 2008 dan Menyimpannya
Pastikan anda sudah Install Visual Basic 2008 pada komputer anda,
Klik Start pada Windows
All Programs
Klik Microsoft Visual Studio 2008
Klik File - New - Project

Maka akan Muncul :

Masukan Name, Location
Klik OK

Maka akan keluar Form1 (Seperti Gambar diatas )

#2 - Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
Buatlah sebuah database dengan nama : DBBelajarvb.accdb
Buatlah sebuah Tabel dengan Nama : Barang
Berikut Design Tabel Barang :
Jangan lupa, sebagai contoh masukan data ditabel Barang agar nantinya bisa terlihat :)
Setelah selesai, simpan pada folder Bin / Debug

(3) -  Design Form, Masukan Koding dan Jalankan Program
Buatlah sebuah Form seperti gambar dibawah
Design form diatas hanya ditambahkan DataGridView1

Masukan Koding dibawah ini :
Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBelajarvb.accdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DataGridView1.DataSource = (ds.Tables("Barang"))
End Sub