using con as New OleDbConnection( connString )
  con.Open
  using cmd as new OleDbCommand( "INSERT into TKatalog(KatID,KatName,KatQuelle)" & _
    "VALUES (?,?,?)", con )
    cmd.Parameters.AddWithValue( "KatID", 0 )
    cmd.Parameters.AddWithValue( "KatName", KatName )
    cmd.Parameters.AddWithValue( "KatQuelle", txtQuelle.Text )
    cmd.ExecuteNonQuery()
  end Using
end Using