. . .    Try
            Cmd.CommandText = "SELECT * FROM Massen WHERE Doc = '" & Doc & "'"
            myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
            myAdapter.Fill(mDT)
 
        Catch ex As Exception
            Dim Test As String = Err.Description
            Beep()
            MsgBox(Test)
        End Try. . .

. . .             Cmd.CommandText = "CREATE TABLE Massen(ID INTEGER PRIMARY KEY" & _
  "AUTOINCREMENT, Doc INTEGER, PgID INTEGER, OZ TEXT, Bez TEXT, Fakt TEXT, FN" & _
  "TEXT, W1 TEXT, W2 TEXT, W3 TEXT , W4 TEXT , W5 TEXT , Menge TEXT , F1 TEXT ," & _
  "F2 TEXT , F3 TEXT , MarkID TEXT , Mass TEXT , Zeit TEXT);"
. . .

Dim ViewFilter1 = "PgID = " & sqlPgID
        mDV = New DataView(mDT)
        mDV.RowFilter = ViewFilter1
        DGV_Massen.DataSource = mDV . . .

Danke für die Hilfe

Gruß Christian