Datagridview hilfe

Imports System.Data.OleDb

Public Class Artikeldatenbank

    Dim cmd As OleDbCommand
    Dim conn As OleDbConnection
    Dim adapter As OleDbDataAdapter
    Dim builder As OleDbCommandBuilder
    Dim ds As DataSet
    Dim table As DataTable




    
    Private Sub Artikeldatenbank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim sqlquery As String = "SELECT * FROM Artikeldatenbank"
        Dim ServerString As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db.mdb"
        Dim connection As New OleDbConnection(ServerString)
        connection.Open()
        cmd = New OleDbCommand(sqlquery, connection)
        adapter = New OleDbDataAdapter(cmd)
        builder = New OleDbCommandBuilder(adapter)
        ds = New DataSet
        adapter.Fill(ds)
        table = ds.Tables(0)
        connection.Close()

        ArtikeldatenbankDataGridView.DataSource = ds.Tables(0)

    End Sub

    Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogin.Click
        adapter.Update(ds)

    End Sub
End Class