bindingole

Imports System.Data.OleDb
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String = "provider=microsoft.ACE.oledb.12.0;data source=db_keuangan.accdb"
        Dim sql As String = "SELECT * FROM Kas"
        Dim connection As New OleDbConnection(connectionString)
        Dim dataadapter As New OleDbDataAdapter(sql, connection)
        Dim ds As New DataSet()
        connection.Open()
        dataadapter.Fill(ds, "Kas")
        connection.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Kas"
    End Sub
End Class