'//wobei der da global definiert ist
Dim cb As New SQLiteCommandBuilder(da)
Dim nr As DataRow = dtArtikelTab.NewRow
                    nr("Artikel") = cRow.Item(1)
                    nr("Bezeichnung") = cRow.Item(2)
                    nr("EK") = cRow.Item(3)
                    nr("Warengruppe") = cRow.Item(6)
                    dtArtikelTab.Rows.Add(nr)
                    Try
                        da.Update(dtArtikelTab)
                    Catch ex As SQLiteException
                        MsgBox(ex.Message)
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try

'// Query = SELECT * FROM ArtikelTab ORDER BY Artikel
sqlCmd = New SQLiteCommand(Query, conn)
        da = New SQLiteDataAdapter(sqlCmd)
        ds = New DataSet
        Try
            da.Fill(ds, TableName)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try