Dim dsPubs As System.Data.DataSet 
Dim con As SqlConnection = New SqlConnection( _
  "Server=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") 
Dim daArtikel As New SqlDataAdapter 
Dim tblArtikel As DataTable 
Dim objCommandBuilder As New SqlCommandBuilder(daArtikel) 
 
daArtikel = New SqlDataAdapter("Select * from dbo.ArtikelStamm order by" & _
  "ArtikelNr ", con) 
 
dsPubs = New DataSet("Pubs") 
daArtikel.FillSchema(dsPubs, SchemaType.Source, "Artikel") 
daArtikel.Fill(dsPubs, "Artikel") 
 
 
'****Zeile einfügen 
Dim drCurrent As DataRow 
drCurrent = tblArtikel.NewRow() 
 
 
drCurrent("ArtikelStammID") = ng 
drCurrent("ArtikelNr") = "56-87-543" 
drCurrent("Warengruppe") = "George" 
drCurrent("Bezeichnung") = "Johnson" 
drCurrent("MengeVPE") = 123.1 
drCurrent("LangText") = "1956 Arlington Pl." 
drCurrent("Mengeneinheit") = "Stück" 
'*****hier werden nicht alle Felder beschrieben 
 
tblArtikel.Rows.Add(drCurrent) 
 
'*****Zeile auf SQL Server einfügen 
daArtikel.Update(dsPubs, "Artikel")