Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnAdd.Click
        Dim Zeile As DataRowView
        Dim cmd As New OleDbCommand
        Dim sql As String
        Dim da As New OleDbDataAdapter
 
        Try
            Zeile = dv.AddNew()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
 
        With Zeile
            .Item("CustomerID") = Me.txtCustomerID.Text
            .Item("CompanyName") = Me.txtCompanyName.Text
            .Item("Address") = Me.txtAddress.Text
        End With
        Zeile.EndEdit()
        Try
            sql = "INSERT INTO CUSTOMERS (CustomerID, CompanyName, Address)" & _
              "Values(?, ?, ?)"
            cmd.Parameters.Add("v1", OleDbType.VarWChar, 5, "CustomerID")
            cmd.Parameters.Add("v2", OleDbType.VarWChar, 40, "CompanyName")
            cmd.Parameters.Add("v3", OleDbType.VarWChar, 60, "Address")
            cmd.Connection = conn
            cmd.CommandText = sql
            da.InsertCommand = cmd
 
            da.Update(ds, "Customers")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        cm.Position = cm.Count - 1
 
    End Sub

            BindingContext(dv).AddNew()
            BindingContext(dv).Position = cm.Count - 1
            Zeile = BindingContext(dv).Current