FS = New IO.FileStream(OpenFileDialog.FileName, IO.FileMode.OpenOrCreate)
BR = New IO.BinaryReader(FS)
Bytes = BR.ReadBytes(BR.BaseStream.Length)

Dim conn As OleDbConnection
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + _
  DBFile + ";")
Dim sql As String = "INSERT INTO Objekte(Bezeichnung) VALUES ('" & _
TB_Bezeichnung.Text & ")"
Dim cmd As New OleDbCommand(sql, conn)
Try
      conn.Open()
      cmd.ExecuteNonQuery()
Catch ex As Exception
      MsgBox(ex.Message)
End Try
conn.Close()
Me.Close()

N I C H T S - I S T - S O - W I E - E S - S C H E I N T