Dim WithEvents customersTable As nwind2000DataSet.CustomersDataTable
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.CustomersTableAdapter.Fill(Me.Nwind2000DataSet.Customers)
        customersTable = Me.Nwind2000DataSet.Customers
    End Sub
 
    Private Sub customersTable_TableNewRow(ByVal sender As Object, ByVal e As _
      System.Data.DataTableNewRowEventArgs) Handles customersTable.TableNewRow
        CType(e.Row, nwind2000DataSet.CustomersRow).CompanyName = "Enter new" & _
        "customer name!"
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist