Hi,

I'm using Visual Studio 2005 and with my code so far, I can read the database, this works fine. But now I want to be able to add data to the database. I found something about Databinding, but that's not what I use.
Does someone can help me any further?

A part of my code so far is:
Code:
Public Class frmKassa
    Inherits System.Windows.Forms.Form
    Public VarTotaal

    Dim VarDataSet As New DataSet()
    Dim VarDataAdapter As New OleDbDataAdapter()
    Dim VarConnection As New OleDbConnection()
Code:
Private Sub frmKassa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Varconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PetChamp.mdb;User Id=admin;Password=;"
        VarDataAdapter.SelectCommand = New OleDbCommand("SELECT * FROM Artikellijst")
        VarDataAdapter.SelectCommand.Connection = VarConnection
        VarDataAdapter.Fill(VarDataSet, "Artikellijst")

    End Sub
Code:
Private Sub txtBarCode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBarCode.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            Dim VarBarcode, VarEANcode, VarArtikel1, VarArtikel2, VarPrijs As String
            Dim VarR, VarI As Integer
            Dim VarSubTotaal As Decimal
            Dim VarAantal, VarFormatPrijs, VarBerekenSubTotaal, VarFormatBerekenSubTotaal As String
            VarBarcode = Me.txtBarCode.Text
            Me.VarConnection.Open()
            VarDataSet.Clear()
            Me.VarDataAdapter.Fill(VarDataSet.Tables("Artikellijst"))
            VarR = VarDataSet.Tables("Artikellijst").Rows.Count()
            For VarI = 0 To VarR - 1
                VarEANcode = VarDataSet.Tables("Artikellijst").Rows(VarI).Item("EANcode")
                VarArtikel1 = VarDataSet.Tables("Artikellijst").Rows(VarI).Item("Artikel")
                VarPrijs = VarDataSet.Tables("Artikellijst").Rows(VarI).Item("Verkoopprijs")
                If VarBarcode = VarEANcode Then

                    'Vullen van de DataGridView
                    VarAantal = txtAantal.Text
                    VarArtikel2 = VarArtikel1
                    VarFormatPrijs = FormatCurrency(VarPrijs, , , TriState.True, TriState.True)
                    VarBerekenSubTotaal = VarAantal * VarFormatPrijs
                    VarFormatBerekenSubTotaal = FormatCurrency(VarBerekenSubTotaal, , , TriState.True, TriState.True)
                    txtAantal.Text = ""
                    txtBarCode.Text = ""
                    txtAantal.Focus()
                    VarSubTotaal = VarBerekenSubTotaal
                    If Me.TextBox1.Text = "" Then Me.TextBox1.Text = 0
                    Me.TextBox1.Text = Me.TextBox1.Text + VarSubTotaal
                    VarTotaal = Me.TextBox1.Text
                    lblTotaal.Text = FormatCurrency(VarTotaal, , , TriState.True, TriState.True)
                    DataGridView1.Rows.Add(VarAantal, VarArtikel2, VarFormatPrijs, VarFormatBerekenSubTotaal)

                    Exit For
                End If
            Next
            Me.VarConnection.Close()
        End If
    End Sub
Thanks.

E.