Koneksi Database MySQL VB .Net 2008

Cara Mengkonksikan Database MySQL Dengan VB .Net 2008
Untuk mengikuti Pembelajaran ini Mohon untuk Pastikan :

1. Anda Sudah Install Xampp
2. Anda Sudah Install ODBC 3.51
3. Anda Sudah Install Visual Basic 2008

Berikut langkahnya :
(1) Buat Database dan Tabel Pada MySQL
Buatlah Database Dengan Nama : dbbelajarvb
Buatlah Tabel Dengan Nama : Barang
Note : Agar nantinya akan terlihat Data barang, silahkan isi Tabel Barang dengan beberapa Record atau Data

(2) Buatlah Design Form Seperti gambar dibawah :

Design form diatas hanya ditambahkan DataGridView1

(3) Berikut Koding Pada Form1 :

Imports System.Data.Odbc
Public Class Form1
    Dim Conn As OdbcConnection
    Dim da As OdbcDataAdapter
    Dim ds As DataSet
    Dim str As String
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
       Handles MyBase.Load
        Me.Text = "www.belajarvb.com"
        Koneksi()
        da = New OdbcDataAdapter("Select * from Barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
    End Sub
    Sub Koneksi()
        str = "Driver={MySQL ODBC 3.51 Driver};database=dbbelajarvb;server=localhost;uid=root"
        Conn = New OdbcConnection(Str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub
End Class

Salam,
belajarVB.com