Dim Transact As SQLiteTransaction
        conn.ConnectionString = "Data" & _
          "Source=myDataBase.db;New=True;Compress=True;Synchronous=Off"
 
        Try
            conn.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        Catch ex As SQLiteException
            MsgBox(ex.Message)
            conn.Close()
            Exit Sub
        End Try
 
 
        sqlCmd = conn.CreateCommand
        Transact = conn.BeginTransaction
 
        sqlCmd.CommandText = "CREATE table ArtikelTab (ArtikelId integer" & _
          "primary key, Artikel Text,Bezeichnung Text, EK FLOAT, Warengruppe" & _
          "Text)"
        Try
            sqlCmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
 
        sqlCmd.CommandText = "CREATE table BestandTab (BestandID integer" & _
          "primary key, ArtikelID integer, Datum TIMESTAMP,Lagerbestand," & _
          "Lagerwert)"
        Try
            sqlCmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
        Transact.Commit()
        MsgBox("Ihre Datenbank wurde erfolgreich angelegt!", _
          MsgBoxStyle.Information, "DB angelegt!")
 
 
        '//Tables anzeigen zur Kontrolle
        Dim oTest As New CAllgemeineFunktionen
        Dim mydt As DataTable
        mydt = oTest.SQLiteTableList(conn)
        Dim oKontrollAnzeige As New frmDataTableInhalt(mydt)
        oKontrollAnzeige.ShowDialog()
        oKontrollAnzeige.Dispose()
        conn.Close()